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In  cost-plus  fixed  fee  contracts,  the  contractor  is  paid  based  on 
the  actual  costs  incurred  plus  some  graded  incentive  fee,  rather 
than  on  a  fixed  bid.  The  larger  the  project,  the  more  critical  it 
becomes  to  ensure  that  the  impact  of  all  schedule  changes  be 
efficiently  analyzed,  so  that  the  contractor  can  complete  inter¬ 
mediate  milestones  as  well  as  the  entire  project  on  time.  Com¬ 
mercially  available  scheduling  software  does  perform  many  of  the 
necessary  analyses,  but  cannot  filter  data  in  ways  that  are  useful 
to  schedule  reviewers.  In  planning  large  projects,  there  is  an 
acute  need  for  supplemental  software  that  can  process  scheduling 
data  to  make  it  immediately  useful  to  schedule  reviewers.  The 
PROMAN  (PROject  MANagement)  microcomputer-based  sche¬ 
dule  analysis'scftware  was  developed  by  the  U.S.  Army  Construc¬ 
tion  Engineering  Research  Laboratory  (USACERL)  to  provide 
several  tools  to  help  evaluate  progress  of  the  construction  project, 
to  assess  the  impact  of  schedule  changes  upon  the  project,  and 
to  proviue  other  assistance  in  construction  schedule  management. 


In  this  study,  PROMAN  was  employed  on  a  large  cost-plus  project 
undertaken  by  the  Corps  of  Engineers  in  the  construction  of  the 
National  Test  Facility  (NTF)  in  Colorado  Springs,  C0.'4JSACERL 
provided  regular  consulting  services  to  NTF,  to  monitor'th§  con¬ 
tractor’s  progress  schedule  and  to  identify  requirements  for  addi¬ 
tional  schedule  analysis  tools.  Volume  I  of  this  report  includes'- 
specific  recommendations  for  the  National  Test  Facility  Resident 
Office  and  future  cost-plus  projects  to  assist  in  evaluating  pro¬ 
gress  schedules  and  documentation  to  guide  in  the  installation 
and  use  of  PROMAN  scheduling  software.  Volume  II  includes 
source  code  for  the  PROMAN  software.  The  results  of  this  study 
apply  to  all  cost-plus  construction  projects  and  may  also  be 
applied  to  other  large  Corps  construction  projects. 
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SCHEDULING  FOR  COST-PLUS  CONSTRUCTION  PROJECTS 
VOLUME  II:  PROMAN  SOURCE  FILES 


*  Procedure  file  for  Activities  to  Crash  Module 
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*  J  ********************************************************************* 
*1 

*1  Procedure:  DISi?ERR 


*  i 

*!  Called  by:  CHECK  (procedure  in  PROCS.PRG) 

* !  :  PAR_O.PRG 

* !  :  NTFST . PRG 

*! 

*  I  ********************************************************************* 


PROCEDURE  disperr 
PARAMETERS  code, filename 
*SET  COLOR  TO  Serrcol 
IF  code  =  1 

0  ROW ()+2, 14  SAY  filenames  has  been  used  already  —  WOULD  YOU  LIKE  TO  :' 

*SET  COLOR  TO  Smonucol 

0  ROW ()+2,S  SAY  '  1)  RETURN  TO  MAIN  MENU?' 

STORE  2  TO  ch 

0  ROW ()+l,5  SAY  '  2)  INPUT  AN  ALTERNATE  FILENAME?  SELECT  1  OR  2  :  '  GET  ch  PICTURE  '9' 

READ 

IF  ch=l 

option  =  0 
ENDIF 
ENDIF 


IF  code  =  2 

0  ROW() +2, 14  SAY  filename^-'  has  same  modification/creation  date  as  previous  file.' 

0  ROW ()+l,S  SAY  'WOULD  YOU  LIKE  TO  :  ' 

•SET  COLOR  TO  Smenucol 

0  ROW ()+2,5  SAY  '  1)  RETURN  TO  MAIN  MENU?' 

STORE  2  TO  ch 

0  ROW ()+l,5  SAY  '  2)  INPUT  AN  ALTERNATE  FILENAME?  SELECT  1  OR  2  :  '  GET  ch  PICTURE  '9' 

PEAD 

IF  ch=l 

option  =  0 
ENDIF 
ENDIF 


IF  code  =  3 

0  ROW ()+2, 14  SAY  'FILE  '+  filename  +'  DOES  NOT  EXIST.  WOULD  YOU  LIKE  TO  :' 

•SET  COLOR  TO  Smenucol 

0  ROW ()+2,5  SAY  '  1)  RETURN  TO  MAIN  MENU?' 

STORE  2  TO  ch 

e  ROW{) +1, 5  SAY  '  2)  INPUT  AN  ALTERNATE  FILENAME?  SELECT  1  OR  2  :  '  GET  ch  PICTURE  '9' 

READ 
IF  ch=l 
option  =  0 
ENDIF 
ENDIF 
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IF  code  =  4 


@  ROW ()+2, 14  SAY  'FILE  '+  filename  +'  IS  NOT  A  DRF  FILE.  WOULD  YOU  LIKE  TO 
*SET  COLOR  TO  imenucol 

0  ROWO+2,5  SAY  '  1)  RETURN  TO  MAIN  MENU?' 

STORE  2  TO  ch 

0  ROW ()+l, 5  SAY  '  2)  INPUT  AN  ALTERNATE  FILENAME?  SELECT  1  OR  2  :  '  GET  ch  PICTURE  '9 

READ 

IF  ch=l 

option  =  0 
ENDIF 
ENDIF 


IF  code  =  5 

0  ROW 0  +2 , 14  SAY  'FILE  '+  filename  +'  IS  NOT  A  SCHEDULE  FILE.  WOULD  YOU  LIKE  TO  :' 

*SET  COLOR  TO  Smenucol 

0  ROW ()+2,5  SAY  '  1)  RETURN  TO  MAIN  MENU?' 

STORE  2  TO  ch 

0  ROW ()+l,5  SAY  '  2)  INPUT  AN  ALTERNATE  FILENAME?  SELECT  1  OR  2  :  '  GET  ch  PICTURE  '9 

READ 

IF  ch=l 

option  =  0 
ENDIF 
ENDIF 

0  ROW () -11, 1  CLEAR  TO  ROW(),79 
RETURN 
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*  |  ******************************************  a*********.****  it  it  it  it  it  it  Irk -kit  it  It  irk 

* I 

*!  Procedure:  CHECK 

* ! 

* !  Called  by:  PAR_O.PRG 

* ! 

*!  Calls:  DISPERR  {procedure  in  PROCS.PRG) 

* ! 

* !  Uses :  (FILENAME 

* ! 

★I********************************************************************* 

PROCEDURE  check 
PARAMETERS  filename, iserror 

STORE  LTRIM (RTRIM (filename) >  TO  filename 
IF  .NOT.  FILE (filename) 

DO  disperr  WITH  3, filename 
STORE  1  TO  iserror 
ENDIF 

IF  iserror  <>  1 

IF  SUBSTR (filename, LEN (filename) -2,3)  =  'DBF'  .OR.  SUBSTR (filename, LEN (filename) -3, 3)  =  'dbf' 
STORE  0  TO  iserror 
ELSE 

DO  disperr  WITH  4, filename 
STORE  1  TO  iserror 
ENDIF 
ENDIF 

IF  iserror  <>  1 
SELECT  9 
USE  (filename 
IF  FIELD (14/  <>  'FFL' 

DO  disperr  WITH  5, filename 
STORE  1  TO  iserror 
ENDIF 
USE 
ENDIF 

RETURN 
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★ | *************************************************x*****»************* 

*  i 

*!  Procedure:  ACTST 

* ! 

* !  Called  by:  REPN.PRG 

* ! 

*  I  *****************************************************************,*** 

PROCEDURE  act st 

SELECT  G 

APPEND  BLANK 

REPL  act  WITH  activ_id 

REPL  TITLE  WITH  activ_dscr 

REPL  od  WITH  activ_dur 

REPL  dol_day  WITH  activ_coat/activ_dur 

STORE  SUBSTR(start_net, 3,3)  TO  mo 

REPL  es  WITH  CTOD <«mo+' /' +SUBSTR (start_net , 1,  2) +' /'  +SUBSTR (start_net,  6,  2) ) 
STORE  SUBSTR(finish_:.at,3,3)  TO  mo 

REPL  If  WITH  CTOD (4mo+' /' +SUBSTR (finlsh_net , 1,2)+' /' +SUBSTR (finlsh_net, 6, 2) ) 
SELECT  F 

RETURN 
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*  !  *******  ********  ********  **************  ★*★*★*****★  Irk  Irk  it  irk  ************** 

*  I 

*  I  Procedure :  CODES! 

*  i 

*!  Callad  by:  REPN.PRG 

* ! 

*  j  ********************************************************************* 

PROCEDURE  codeat 

SELECT  G 
SEEK  activ_id 
REPL  rasp  WITH  rasponaibl 
REPL  claim  KITH  modnum 
REPL  area  WITH  workarea 
REPL  hammock  WITH  hamact 
REPL  breakdown  WITH  breakdwn 
REPL  weather  WITH  weather# 

REPL  TYPE  WITH  act_type 
REPL  spec_sect  WITH  apec 
REPL  buildsys  WITH  build 
REPL  calcode  WITH  calcd 
SELECT  F 

RETURN 
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1(  }★**★*******★★★★★**★★★**★*★★★★***★'*'★★★★★***★*'★★★★★★*★★★★**★***■**★****★ 
* ! 

*!  Procedure:  PRECST 

* ! 

* !  Called  by:  REPN.PRG 

* ! 

•ft!***'****'**********'*******'***'**'****'************************************* 

PROCEDURE  precst 

SELECT  H 

APPEND  BLANK 

REPL  act  WITH  actidpr 

REPL  sue  WITH  sucact 

REPL  rel  WITH  suctypa 

REPL  lag  WITH  VAL(lagamt) 

SELECT  F 

RETURN 
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* | ********* * *********** * *********** *** ********************* * ********** A 
* ! 

*!  Procedure :  PROGST 

*t 

*!  Called  by:  REPN.PRG 

* ! 

*  j  ********************************************************************* 

PROCEDURE  progst 

SELECT  G 

SEEK  actldpcog 

REPL  rd  WITH  VAL(remdur) 

STORE  SUBSTR(actst,3,3)  TO  mo 

REPL  as  WITH  CTOD (£mo+' /'+SUBSTR (actst , 1,2)+' /' +SUBSTR (actst, 6,2)) 

STORE  SUBSTR(actf, 3, 3)  TO  mo 

REPL  af  WITH  CTOD (&mo+' /' +SUBSTR (actf , 1, 2) +' /' +SUBSTR (aotf , 6, 2) ) 

SELECT  F 

RETURN 
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★  }***★*★****★***.*  ******************************************************** 
* ! 

*!  Procedure:  FILENAME 

* ! 

* i ****************************** ************************************* ** 

PROCEDURE  filename 

PARAMETERS  filename, wherex, wherey 

filename  =  TRIM(UPPER(filename) )+" 

0  wherex, wherey 

0  wherex, wherey  SAY  "Enter  Filename:  "  GET  filename 

READ 

RETURN 
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★ I ***★**★*★*★ *★*★★**★★**★***★***★******★****★**★★★★**★***★** **★★*★*★★★* 
* ! 

* ! 

* ! 

* ! 

* ! 

* ! 

* ! 

*! 

* ! 

*  t 

* ! 

* ! 

* ! 

* ! 

* ! 

* ! 

* ! 

* ! 

* ! 

* ! 

* ! 

* ! 

*  i 


Procedure:  OPENFILS 

Called  by:  REPR.PRG 

REPS. PRG 

REPT. PRG 

REPU. PRG 

REPV. PRG 

REPW. PRG 

REPX. PRG 

Calls:  CLOSEFIli 


(procedure  in  PROCS.PRG) 


Uses : 


Indexes: 


SNTFSCHED2 

SNTFSCHED1 

SNTFLOGIC2 

SNTFLOGIC1 

SNTFSCHED2 

SNTFSCHED1 

SNTFLOGIC2 

SNTFLOGIC1 


*  I  ********************************************************************* 

PROCEDURE  openfils 


SELECT  4 
USE 

DO  closefil 
SELECT  1 

USE  «ntfsched2  INDEX  fintfsched2 
SELECT  2 

USE  fintfschedl  INDEX  Sntfschedl 
SELECT  5 

USE  fintflogic2  INDEX  Sntflogic2 
SELECT  C- 

USE  ..nf.flogicl  INDEX  fintflogiol 

RETURN 
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*  I  ******** ************** ****** ***************** ******* ***************** 

*  t 

* !  Procedure :  OPENNTFS 

* ! 

* !  Called  by:  MAINX.PRG 

*  i 

* !  Calls:  CLOSF.FIL  (procedure  in  PROCS.PRG) 

* ! 

* !  Uses:  SNTFSCHED2 

* !  :  SNTFSCHED1 

* !  ;  SNTFLOGIC2 

* !  :  SNTFLOGIC1 

* ! 

* !  Indexas:  &NTFSCHED2 

* !  :  SNTFSCHEDl 

* !  :  SNTFL0GIC2 

* !  :  SNTFLOGIC1 

* ! 

*  I  A******************************************************************** 

PROCEDURE  openntfs 
CLEAR 

0  10,10  SAY  "Generating  indexes  for  reports  R-X." 

ntfschedl  =  UPPER (ntfschedl) 
ntfsched2  =  UPPER (ntfsched2) 
ntflogicl  =  UPPER (ntflogicl) 
ntf logic2  =  UPPER (ntflogic2) 

IF  .NOT.  AT ( " . DBF”, ntfschedl)  =  0 

ntfschedl  =  STUFF  (ntfschedl,  AT  ntfschedl) ,  4,  "•■) 

ENDIF 

IF  .NOT.  AT ( " . DBF" , nt f sched2)  =  0 

ntfsched2  =  STUFF  (ntfsched2,  AT  ("  .  " ,  ntf sched2) ,  4, 

ENDIF 

IF  .NOT.  AT(". DBF", ntflogicl)  =  0 

ntflogicl  =  STUFF (ntflogicl, AT (".",  ntflogicl) ,  4,  "") 

ENDIF 

IF  .NOT.  AT (" . DBF", ntflogic2)  =  0 

ntflogic2  =  STUFF  (ntflogic2,7,T  (" .  " ,  ntf logic2)  ,  4,  "") 

ENDIF 

DO  closefil 

SELECT  1 

USE  Sntfsched2 

INDEX  ON  act  TO  &ntfsched2 

SELECT  2 

USE  Sntfschodl 

INDEX  ON  act  TO  Sntfschedl 

SELECT  5 

USE  Sntflogic2 
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INDEX  ON  «ot+«-jo  TO  «ntflogic2 

SELECT  6 

USE  fntflogiol 

INDEX  ON  act+»uc  TO  Sntflogiol 

DO  closefil 

RETURN 


* ! 

* ! 

Procedure: 

CLOSEFIL 

* ! 

*  i 

Celled  by: 

OPENFILS 

(procedure 

in 

PROCS.PRG) 

*  i 

OPENNTFS 

(procedure 

in 

PROCS.PRG) 

+ 1 

REPR.PRG 

* ! 

REPS.PRG 

* ! 

REPT.PRG 

* ! 

REPU.PRG 

* ! 

REPV.PRG 

* ! 

REPW.PRG 

* ! 

REPX.PRG 

*  i 

*!*****★*★*  iticitickirirklrkickirkitirklKit'k'kidck'A'kicirk-kifkltirirkieitirkitlrkirk'klrkirkiric'k 

PROCEDURE  closefil 

SELECT  1 
USE 

SELECT  2 
USE 

SELECT  5 
USE 

SELECT  6 
USE 

RETURN 


************************************* 
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* \ ********************** ******************* a*************** ************ 

*  I 

* !  Procedure :  TOTOP 

* ! 

*1  Celled  by:  TITL21.PRG 

* ! 

*  J  ********************************************************************* 

PROCEDURE  totop 

*  DO  WHILE  LINE  <  65 

*  ? 

*  LINE  =■  LINE  +  1 

*  ENDDO 

*  ? 

?  eop  st  Form-Feed  Character 
RETURN 
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*! ********************************************************************* 

* ! 

* !  Procedure:  CERTIFY 

* ! 

* !  Called  by:  SETPARMS.PRG 

★  j 

*f***********  ******************  *  ***★★★★*****★★★****★****★**★★★■*★★*★★**★* 

PROCEDURE  certify 
PRIVATE  temp 
022,0  CLEAR  TO  24,79 
temp  =  '  Y' 

0  22,1  TO  22,79  DOUBLE 

0  23,1  SAY  'The  values  you  have  entered  will  be  used  for  report  ' +TRIM(reportch) 
0  24,1  SAY  'Enter  "Y"  to  accept,  "N"  to  re-enter,  or  "Q"  to  quit:  ' 

DO  WHILE  .T. 

0  24, S 6  GET  temp 
READ 

temp  =  TRIM (UPPER (temp)) 

IF  temp  =  'Y' 

RETURN 

ELSE 

IF  temp  =  'N' 
option  =  8 
RETURN 
ELSE 

IF  temp  =  ' Q' 
option  =  0 
RETURN 
ENDIF 
ENDIF 
ENDIF 
ENDDO 
RETURN 

*:  EOF:  PROCS.PRG 
AZ 
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*  • ********************************************************************* 
*; 

*:  Program:  MAINVARS . PRG 

*: 

*:  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-C2RL 

*:  Copyright  (c)  1989,  USA-CERL/ASC/RCE 

*:  Last  modifiad:  04/27/89  0:22 

*: 

*:  Called  by:  MAINMAXN.PRG 

★ ; 

*:  Documented  04/27/89  at  10:36  SNAP!  version  3.12a 

it  ; *********************** ****************************'\***************** 

**  MAINVARS. PRG  -  Declare  and  Initialize  Public  Variables  for  PROMAN 
* 

PUBLIC  pathl ,  path2 ,  path3 ,  path4  ,.dat adate ,  MENU 
* 

STORE  "  TO  pathl ,path2,path3,path4  it  For  Critical  path  strings 
datadate  =  DATE ( )  it  Primavera  "Data  Date",  needed  for  Report  M 
MENU  =  ' ' 

* 

SET  COLOR  TO  tmenucol 
* 

PUBLIC  jan, feb, mar, apr, may, Jun, jul, aug,  sap,  oct ,  nov, Dec 
* 

jan='01'  it  Strings  for  month  translations  in  PSSR  files 

feb=' 02' 

mar®' 03' 

apr=' 04' 

may=' OS' 

jun='06' 

jul='07' 

aug=' 08' 

sep='  09' 

oct®' 10' 

nov*' 11' 

Dec=' 12' 

* 

PUBLIC  codal, codes, code2, code3, codeS, code7, code4, areacodes 
* 

codel='STND'  tt  Activity  Code  or  Activity  Code  ID  used 
code8='RKSP' 

*code5='WAD' 
code2=' SORT' 
code3=' SUBS' 
code 6= 'AREA' 
code7='SUAR' 
code4=' TYPE' 

*  Search  string  for  all  "AREA"  ID  Codes  in  Schedule 
areacodes®' 123456789' 

* 

*  Strings  for  individual  "AREA"  ID  Codes 
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* 

PUBLIC  areavl, areav2, areav3, areav4, areav5, araav6, areav7, areav8, areav9 
* 

areavl=' Site  Work  ’ 

areav2='Site  Utilities  ' 

areav3=' Administration  Building  ' 

areav4=' Research  Building  ' 

are»v5=' Central  Plant  ' 

areav6=' ERROR  -  AREA  6  IS  UNASSIGNED! 
areav7='Pa ss  £  ID/Entry  Control  Building' 
areav8=' Construction  Support  ' 

areav9=' Construction  Office  ' 

* 

PUBLIC  stndcodes, stndvOl, stndv02, stndv03, stndv04, stndvOS, stndv06 
PUBLIC  stndv07, stndv08, stndv09, stndvlO, stndvll, stndvl2, stndvl3, stndv!4 
PUBLIC  stndvlS,  stndvl6, stndvdr, stndvpm, stndvpr,  stndvsc 
★ 

*  Search  string  for  all  "STND"  ID  Codes  in  Schedule 

stndcodes='  01,  02,  03,  04,  05,  06,  07,  08,  09, 10,11,12, 13, 14, 15,16,  DR,  PM, PR,  SC' 

*  Strings  for  individual  "STND"  ID  Codes 

stndv01=* General  ' 

stndv02=' Site  Work  ' 

stndv03=' Concrete  ' 

stndv04=' Masonry  ' 

stndv05=' Metal  ' 

stndv06='Wood  and  Plastics  ' 

stndv07=' Moisture-Themal  Control  ' 

stndv08°' Doors,  Windows  and  Glass  ' 

stndv09=' Finishes  ' 

stndvl0=' Specialties  ' 

stndvll=' Equipment  ' 

stndvl2=' Furnishings  ' 

stndvl3=' Special  Construction  ' 

4.tndvl4='  Conveying  Systems  ' 

stndvl5=’ Mechanical  ' 

stndvl 6=' Electrical  ' 

stndvdr=' Drawings  ' 

stndvpm='Prep  Meetings  ' 

stndvpr=' Procurement  ' 

stndvsc=' Subcontract  Award  ' 

* 

*  Search  string  for  all  "SUb-ARea"  ID  Codes  in  Schedule 

* 

PUBLIC  suarcodes,  floorvO, floorvl, floorv2,  floorv3,  floorv4, sortcodes 
* 

suarcodes=' 0123456789' 

floorv0=' Basement  '  a  Strings  for  "SUb-ARea"  Codes 

floorvl—' First  Floor  ' 

floorv2=' Second  Floor' 

floorv3=' Third  Floor  ' 

floorv4=' Roof  ' 

*  Search  string  for  all  SORT  Codes  in  Schedule  (for  Report  M) 
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aortcodea*' AA, AD, AF, AP, AW, CC, CD, Cl, CF ,  CS,  CW, DEMO, EC,ED, EE, EF,KG, EL, EP,BPL,ER, ' ; 
+'ES,ESL,ET,BU,EW,SX,FA,FF,FP,FW,ME,MH,MT,PB,PD,PF,PG,PI,PP,PR,PS,PW,SD,SM, '; 

+'  SR,  SS,  UR' 

* 

PUBLIC  area, arcs,  arcc,  aref, arpr, arew, arpb, arpd, arpf , arpg, arpl, arpa, arpw, arad 
PUBLIC  arfa, araf , arew, araa, armt , arff , arfp 
* 

*  Stringa  for  individual  "SORT"  Codaa  (in  rough  ordar  of  conatruction  progreaa) 

area*' Earthwork  ' 

araa*' Sbrucbural  Sbaal  ' 

arcc*' Concrete  ' 

aref*' Concrete  Floora  ' 

arpr*' Rough-In  ' 

arew*' Dampproofing  ' 

arpb*' Piping  ' 

arpd*' Subdraina  ' 

arpf*' Plumbing  Fixburaa  ' 

arpg='Gaa  Piping  ' 

arpi*'Pipe  Inaulabion  ' 

arpa*' Sawer  Piping  ' 

arpw*' Water  Piping  ' 

arad>='Drywall  ' 

srf a*' Finish  Arch.  ' 

sraf='Elacbrical  Fixburaa  ' 

arew='Wire  C  Term.  ' 

araa*'Elecbrical  Equipmenb' 
armt*'Mech.  Equip.  ' 

srff*'Carpab  £  Lino.  ' 

srfp*'Painb  t  Wallpaper  ' 

* 

PUBLIC  raapcodaa, lvlacodaa, type codaa, aubacodeal, aubacodan2 
* 

*  Search  sbring  for  all  "RESP"  Codaa  in  Schedula 
re  opcodes* ' ACEFMPSX ' 

*  Search  abring  for  all  "LVLS"  Codaa  in  Scehdula 
lvlacodos*' D, DC, DP, DZ, JO, M, OUT,  S,  V 

*  Search  sbring  for  all  "TYPE"  ID  Codaa  in  Schadula 
bypecodeo*' 00, 10, 20,30,  40,  60,  70,  99' 

*  Search  string  for  all  "SUBcontractS"  Codaa  in  Schedula 

subscodesl*' ATR, CAFE, CARP3 , CARP  4 , CEIL, CEIL4 , CMU3 , CMU4 , COM3 , COM4 , COOL, CPCS , D00R3 , ' ; 

+ ' DOOR4 , ELEV4 , EMCS3 , EMCS  4 , ENT , FD3 , FD4 , FE , FP3 , FP  4 , GEN , HALO , HVAC3 ,  HVAC4 , LAND , PAVE , ' 
subacode62=' PI3,PI4,PID, PNT3 , PNT4 , RFC, RFLR3 , RFLR4 , RFT, R00F3 , R00F4 ,  SEC3 , SEC4 , SEW, STUD3 , ' ; 
+' STUD4, T6B4, TSB4, TILE, WIND' 

* 

PUBLIC  p»srjdone,  schedj done,  submi^done, procesaad, GET,  output , print  ok 
* 

STORE  .F.  TO  ps8r_dona, ached_done, 8ubmi_done 
processed  —  .F. 

GET  *  '  '  fi£  For  testing  gatpaar,  getsched,  etc  with  ON  KEY 
output  =  'V' 
print_ok  =  .F. 

* 
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PUBLIC  yn, PRINTER, maxlinasa, maxlinaaf , maxllnaag, maxlinaah, maxllnasi 
PUBLIC  maxlinea j , maxlinaak, maxlinaal, maxlinean, maxlineao, aop, intro_on 
PUBLIC  intro  off,haadar__on,haader_mid,haader_off,  £ooter_or>,  £ooter_off 
* 

RETURN 

*:  EOF:  MAINVARS.PRG 
AZ 


★  •  *** ***************************************** ************************* 


★ 

* 

* 

* 

*  _ 
♦ 
* 
★ 
★ 
★ 
★ 
* 
★ 
★ 
* 


Program:  SETFILES.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Laat  modifiad:  04/26/89  20:20 

Callad  by:  MAINMAIN.PRG 

Calla:  FILEDISP.PRG 

Uaas:  FILELIST . DBF 
Documantad  04/27/89  at  10:38 


SNAP!  varaion  3.12a 


PUBLIC  filpssrjpr, £ilp»ar_ac, filsched, filsucces, filaubmi 
SELECT  1 
USE  filaliat 
GOTO  TOP 

flips sr_pr=pssr_proc 

filpssr_sc*pssr_suba 

filsched-schadula 

£ilauccaa«auccaaaor 

filsubmi-submittal 

USE 

CLEAR 

02,2  SAY  "  “ 

TEXT 

Tha  files  liatad  as  defaults  below  indicate  tha  last  stored  values  for 
Submittal,  Schedule,  and  Successor  databases.  These  ara  typically  either 
the  last  set  selected  by  a  PROMAN  user  or  tha  last  files  processed  by  the 
system.  If  a  file  is  marked  as  non-existant,  it  is  manditory  that  an 
oxisting  file  be  entered  before  attempting  to  run  reports.  The  PSSR 
files  required  for  some  reports  are  not  displayed  below.  If  new  PSSR 
records  for  either  procurements  or  subcontracts  are  moved  to  the  PROMAN 
directory,  use  File  Processing  Options  to  create  new  PSSR  databases. 
Indexes  for  each  of  the  databases  will  be  created  if  the  files  ara 
required  for  selected  reports  or  operations. 

ENDTEXT 
DO  filedisp 
014,2  SAY  "  " 

WAIT 

RETURN 


*:  EOF:  SETFTT.ES .PRO 
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* 

A 

A 

A 

A 

A 

A 

A 


Program:  MENUONE.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/25/89  13:05 


* 

* 

* 


Called  by:  MAINMAIN . PRG 
Calls:  FILEDISP.PRG 


* 


*:  Documented  04/27/89  at  10:38  SNAP!  version  3.12e 

A-AAAAAAAAaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


option  =  0 
temp  =  0 
tempi  =  "0" 

CLEAR 

0  1,30  SAY  "WELCOME  TO  PROMAN" 

3  2,30  SAY  "=================" 

0  5,18  TO  14,57  DOUBLE 
0  6,22  SAY  '1  -  Run  Batch  Reports' 

0  7,22  SAY  '2  -  ASCII  Standard  File  Import' 

0  8,22  SAY  '3  -  List  Database  Files' 

0  9,22  SAY  '4  -  Process  New  Project  Files' 

0  10,22  SAY  '5  -  Change  Active  Project  Files' 
0  12,22  SAY  '9  -  Exit  Program' 

DO  filedisp 


0  17,22  SAY  'Please  enter  your  selection.' 


DO  WHILE  option  =  0 
DO  WHILE  temp  =  0 
temp  =  INKEY  () 

ENDDO 

tempi  =  UPPER  (CHR  (temp) ) 
DO  CASE 

CASE  tempi  =  "1" 
option  =  1 
CASE  tempi  =  "2" 
option  ■■  3 
CASE  tempi  =  "3" 
option  =  4 
CASE  tempi  =  "4" 
option  =  5 
CASE  tempi  =  "5" 
option  =  6 
CASE  tempi  =  "9" 
option  =  9 
ENDCASE 
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0 


tamp  » 
EWDDO 
RETURN 
*:  EOF: 
AZ 


MENUONE . PRG 


*************  'tlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


* 

* 

* 

* 

* 

A 

A 

A 

A 

A 


Program:  MENUTWO . PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/26/89  22:53 

Called  by:  MAINMAIN , PRG 


*:  Documented  04/27/89  at  10:38 


SNAP!  version  3.12e 


•*  •  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAnAAAAAAAAAAAAAAAAAAAAAeAAAAAAAAAAAAA 


SET  TALK  OFF 
reportst  =  ' ' 
exitflag  =  .F. 

CLEAR 

01,5  SAY  "PROMAN  REPORTS" 

02, S  SAY  "==============" 

00,31  TO  22,79  DOUBLE 

01,35  SAY  'A  -  PSSR/Schedule  Matching' 

02,35  SAY  "B  -  PSSR/Schedule  'PR'  Code  Matching" 
03,35  SAY  'C  -  PSSR/Schedule;  Date  Comparison  1' 
04,35  SAY  'D  -  PSSR/Schedule;  Date  Comparison  2' 
05,35  SAY  'E  -  PSSR/Schedule/Submittal  Comparison  1' 
06,35  SAY  'F  -  PSSR/Schedule/Submittal  Comparison  2' 
07,35  SAY  'G  -  Resource  Loading  -  Manpower  Variance' 
@8,35  SAY  'H  -  Resource  Loading  -  Funding  Variance' 
09,35  SAY  'I  -  Resource  Loading  -  Time  Variance' 
010,35  SAY  'J  -  Logical  Analysis' 

011,35  SAY  'K  -  Activities  to  Crash' 

012,35  SAY  'L  -  Delays  in  Design' 

013,35  SAY  'M  -  Contractor  Grading' 

014,35  SAY  'O  -  Activity  Slippage' 

015,35  SAY  'R  -  Deleted  Activities' 

016,35  SAY  'S  -  Find  Added  Activities' 

@17,35  SAY  'T  -  Find  PCT  AS/AF  Inconsistency' 

018,35  SAY  'U  -  Find  Changes  in  Description' 

@19,35  SAY  'V  -  Find  Changes  in  Orig.  Duration' 

@20,35  SAY  'W  -  Find  Changes  in  Progress' 

@21,35  SAY  'X  -  Find  Logic  Changes' 

@23,35  SAY  '*  -  indicates  selected  reports' 

017,5  SAY  '  OTHER  ACTIONS  ' 

@18,5  SAY  '=■==«=====>;=======' 

@19,5  SAY  '1  -  RUN  REPORTS' 

@20,5  SAY  '2  -  PREVIOUS  MENU' 

021,5  SAY  '9  -  QUIT' 

04,5  SAY  'REPORT  SELECTION' 

@6,5  SAY  'Press  a  letter  to' 

@7,5  SAY  'choose  reports  to' 

08,5  SAY  'run.' 

011,5  SAY  'Your  Selection' 
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012,5  SAY  ">" 

DO  WHILE  .NOT.  exitflag 
raval  -  0 

DO  WHILE  raval  ■  0 
raval  *  INKEY  () 

ENDDO 

ra  -  UPPER (CHR( raval)) 
scrpoa  a  o 
DO  CASE 

CASE  rs  >=  "A"  .AND.  ra  <.  "N" 
acrpoa  =  ASC(ra)  -  64 
CASE  ra  =  "O" 
scrpos  3  14 

CASE  ra  >  "P"  .AND.  ra  <  "Y" 
acrpoa  =  ASC(ra)  -  67 
CASE  ra  =  "1" 

CLEAR 

RETURN 

CASE  ra  =  "2" 

CLEAR 

reportat  =  "" 

RETURN 

CASE  ra  =  "9" 
exitflag  «=  .T. 

OTHERWISE 

ENDCASE 

IF  acrpoa  >  0 

temp  *  AT (ra, reportat) 

IF  temp  =  0 

reportat  =  reportat  +  ra 
0  acrpoa, 33  SAY  "*" 

ELSE 

reportat  =  STUFF  (reportat,  temp,  1, '"') 
0  acrpoa, 33  SAY  "  " 

ENDIF 
acrpoa  =  0 
ENDIF 

0  12,5  SAY  ' 

0  12,5  SAY  '>' 

ENDDO 

*:  EOF:  MENUTWO . PRG 
AZ 
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*;************ **************** ***************************************** 


Program:  MAINX.PRG 


System: 
Author: 
Copyright 
Last  modified: 


PROJECT  MANAGEMENT  TOOLS 
ASC/RCE  and  USA-CERL 
(c)  1989,  USA-CERL/ASC/RCE 
04/27/89  9:09 


Called  by:  MAINMAIN . PRG 


PRINTSET .  PRG 
SETPARMS . PRG 
KEYPRESS. PRG 
OPENNTFS 
INTRO. PRG 

REPA. PRG 

REPB. PRG 

REPC. PRG 

REPD. PRG 

REPE. PRG 

REPF. PRG 

REPG. PRG 

REPH. PRG 

REPI. PRG 

REP J.  PRG 

REPK. PRG 

REPL. PRG 

REPM. PRG 
REPO. PRG 

REPR. PRG 

REPS.  PRG 

REPT. PRG 

REPU. PRG 

REPV. PRG 

REPW. PRG 

REPX. PRG 


PSSR_PR.DBF 
tFILSCHED 
SFILSUBMI 
ZZZTEMP . DBF 
SFILSUCCES 
SFILSCH2L 
SFILSCH1L 
GRADING1 . DBF 
GRADING2 . DBF 


Indexes:  PSSR_ACT.NDX 
:  SCHD_STN.NDX 
:  SCHD_ACT.NDX 
:  SUBM  NAS.NDX 


(procedure  in  PROCS.PRG) 


:  SCH2_ACT . NDX 
:  SCH1  ACT. NDX 


* : 

*:  Documented  04/27/89  At  10:38  SNAP!  version  3.12e 

★ • a***************************** a************************************** 

**  MAIN.PRG  -  Start  Pro-Man 
SET  COLOR  TO  fmenuccl 

IF  'A'  $  report  at  .OR.. '  B'  $  report  at  .OR. '  C'  $  report  at  .OR. '  D'  $reportat  .OR.  'E'  $reportst 
.OR. 'F' $roportat .OR. 'M' Sreportat .OR.  'N'  $reportat 
IF  .NOT.  FILE ("pasr_pr .dbf") 

CLEAR 

@  10,10  SAY  "REPORTS  A,B,C,D,E,F,  AND  M  REQUIRE  PSSR  DATA." 

0  11,10  SAY  "YOU  MUST  USE  THE  FILE  PROCESSING  OPTION  TO  CREATE" 

0  12,10  SAY  "VALID  PSSR_PR.DBF  FILE  OR  YOU  MUST  COPY  THE  FILE" 

0  13,10  SAY  "TO  THE  PROMAN  SUBDIRECTORY  BEFORE  ATTEMPTING  TO" 

0  14,10  SAY  "RUN  THESE  REPORTS.  YOU  WILL  BE  RETURNED  TO  THE" 

0  15,10  SAY  "MAIN  MENU." 
option  =  0 
reportat  =  "" 

RETURN 
ENDIF 
ELDIF 
* 

DO  printsat 

*  printer  option  aelection 

STORE  .y.  TO  paar_done, sched_done,  aubmi_done 
processed=.y . 


££  <****★ 
££  <****★ 


*  Prompt  user  for  Report-specific  responses: 


STORE  '1'  TO  rgcode,rhcode,ricode 

STORE  10  TO  refloat, ufloat,upercent 

STOLE  20.0  TO  rfpercent 

STORE  20  TO  rgmn,durat,reldur 

STORE  1.00  TO  rgad 

STORE  2000  TO  "hdl 

STORE  1  TO  rhsd, risd 

STORE  40  TO  ridy 

STORE  '2'  TO  rjcode 

STORE  5  TO  mpl 

STORE  SPACE (20)  TO  filachll, fileched2, filached3, filsched4 

STORE  SPACE (20)  TO  filachedS, ntfsched2, ntflogic2 

STORE  filsched+SPACE (12)  TO  filsch21, filschedl, ntfschedl 

STORE  fn*uccee+SPACE(!2)  TO  r.tflogicl 

STORE  'DR'  TO  stnd 

STORE  'S'  TO  mch 

STORE  CTOD('  II')  TO  datadate 
STORE  0  TO  numfiles 
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*  get  the  parameter*;  for  reports 

■k 

DO  setparms 
IF  option  =  0 
RETURN 
ENDIF 


*  Tell  user  about  his  output  filenames 
CLEAR 

nn=l 

STORE  '  '  TO  report ch 

STORE  0  TO  pdo 

DO  WHILE  nn<=LEN (reportst) 

IF  (SUBSTR (reportst, nn, 1) O' N' )  .AND.  ( SUBSTR  (report st , nn , 1 ) O' P '  )  .AND. 

(SUBSTR  (reportst,  nn,l)  O'  Q'  ) 

STORE  reportch  +  SOBSTR(reportst,nn, 1)  TO  reportch 
ENDIF 

IF  (SUBSTR (reportst , nn, 1)  ='  P' ) 

STORE  1  TO  pdo 
ENDIF 
nn=nn+l 
ENDDO 

STORE  SUBSTR (reportch, 2, LEN (reportch) -1)  TO  reportst 
CLEAR 

03,10  SAY  "Changing  old  SASREP.TXT  names  to  SASREP . OLD . " 

RUN  del  sasrep*.old 

RUN  ren  sasrep*.txt  sasrep*.old 

IF  (output='B' .OR. output^' D' .OR.output='A' )  .AND.  (LEN (reportst) >0) 
fname=' SASREP' 

03,10  SAY  'Your  output  filenames  will  be  :' 
nn=l 

reportch='  ' 

DO  WHILE  nn<=LEN  (reportst) 

roportch=SUBSTR(reportst,nn,  1) 

?  SPACE (15)+' sfnamesreportch  .TXT' 
nn=nn+l 
ENDDO 
WAIT 
ENDIF 

*  Set  keyboard  "off" 

SET  ESCAPE  OFF 

ON  KEY  DO  keypress 

*  Do  Initial  file  processing 
SET  STATUS  ON 

CLEAR 

010,10  SAY  "Setting  up  files  for  All  Reports." 

IF  'A' $ reportst .OR. 'B' $ reportst . OR. ' C' $reportat . OR. 'D' $ reportst .OR. 'E' $reportst; 

.OP..  'F'  $  reportst. OR. $  reportst  .CR. '  I,”  Crsportst 
SELECT  B  SS  pssr_PR.dbf  -  Now  merged  with  pssr_SC.dbf 
USE 

USE  pssr_pr 

INDEX  OH  activ_id  TO  pssr_act 
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ENDIF 

SELECT  D  it  filsched 
USE  Sfilsched 

IF  'G'$reportst  .OR.  'H'$reportst  .OR.  'I'$reportat 

INDEX  ON  SUBSTR(act,5,2)  TO  schd_stn 
ENDIF 

INDEX  ON  act  TO  schd  act 


IF  'E' $reportst .OR. ' F' $reportst .OR. 'M' $reportst .OR. 'N' $reportst 
SELECT  E 
USE  Cfilaubml 

INDEX  ON  SUBSTR(na*,l,9)  TO  subm_nas 
ENDIF 
* 

IF  ' R' $reportst .OR. ' S' $reportst .OR. ' T' $reportat . OR. ' U' $reportat .OR. '  V' $reportst; 
•OR. 'W' $reportat .OR. 'X' $ report st 
CLOSE  DATABASES 
DO  openntfs 
ENDIF 


nn-0  it  Generate  all  Reports 

report ch=' A' 

DO  WHILE  nn  <*  26 

IF  reportch  $  reportat 

IF  output*' B' .OR. output*' D' .OR. output*' A' 

SET  ALTERNATE  TO  tfnametreportch 
SET  ALTERNATE  ON 
ENDIF 

IF  output*'P' .OR. output*' B' 

SET  PRINT  ON 
ENDIF 

CLOSE  DATABASES 
SELECT  D 
USE  Sfilsched 
SELECT  B 
USE  pssr_pr 

DO  intro  tt  Do  Intro  to  each  Report 

SELECT  D 

USB 

SELECT  B 
USE 

DO  CASE  a  Replaced  Macro-substitution  for  compiler  purposes 

CASE  reportch='A' 

SELECT  B 

USE  pssr_pr  INDEX  pssr_act 
SELECT  D 

USE  fifilsched.  INDEX  schd_sct 
DO  repa 
SELECT  B 
USE 

SELECT  D 


32 


USE 

CASE  reportch='B' 

SELECT  B 

USE  pssr_pr  INDEX  pssr_act 
SELECT  D 

USE  tfilsohed  INDEX  schd_act 
DO  repb 
SELECT  B 
USE 

SELECT  D 
USE 

CASE  reportoh='C' 

SELECT  B 

USE  p6sr_pr  INDEX  pssr_act 
SELECT  D 

USE  Sfllsched  INDEX  schd_act 
DO  rape 
SELECT  B 
USE 

SELECT  D 
USE 

CASE  reportch='D' 

SELECT  B 

USE  pssr_pr  INDEX  pssr_act 
SELECT  D 

USE  Sfllsched  INDEX  schd_act 
DO  ropd 
SELECT  B 
USE 

SELECT  D 
USE 

CASE  reportch='E' 

SELECT  B 

USE  pssrjpr  INDEX  pssr_act 
SELECT  D 

USE  Sfllsched  INDEX  schd_act 
SELECT  E 

USE  Sfilsubmi  INDEX  subm_nas 
DO  rape 
SELECT  B 
USE 

SELECT  D 
USE 

SELECT  E 
USE 

CASE  reportch='F' 

USE  pssr_jpr  INDEX  pssr_act 
SELECT  D 

USE  Sfllsched  INDEX  schd_act 
SELECT  E 

USE  Sfilsubmi  INDEX  subm_nas 
DO  repf 


SELECT  B 
USE 

SELECT  D 
USE 

SELECT  E 
USE 

CASE  reportch<*'G' 

SELECT  D 

USE  Sfllsched  INDEX  schd_stn 
DO  repg 
SELECT  D 
USE 

CASE  reportch='H' 

SELECT  D 

USE  Sfllsched  INDEX  schd_stn 
DO  raph 
SELECT  D 
USE 

CASE  reportch='I' 

SELECT  D 

USE  Sfllsched  INDEX  schd_stn 
DO  repi 
SELECT  D 
USE 

CASE  reportch>=>' J' 

IP  FILE ("zzztemp.dbf") 

ERASE  zzztemp.dbf 
ENDIF 

COPY  FILE  Sfllsched  TO  zzztemp.dbf 

SELECT  D 

USE  zzztemp 

DO  repj 

SELECT  D 

USE 

ERASE  zzztemp.dbf 
CASE  roportch='K' 

SELECT  B 
USE  Sfilaucces 
SELECT  D 
USE  sfllsched 
DO  ropk 
SELECT  B 
USE 

SELECT  D 
USE 

CASE  repoctch=' L' 

SELECT  G 

USE  &£iluch21 

INDEX  ON  act  TO  sch2_act 

SELECT  F 

USE  Sfilschll 

INDEX  ON  SUBSTR (act, 5,2)  TO  schl  act 


DO  REPL 
SELECT  G 
USE 

SELECT  F 
USE 

CASE  reportch='M' 

SELECT  F 
USE  gradingl 
SELECT  G 
USE  grading2 
SELECT  B 

USE  pssrjor  INDEX  pssr_aot 
SELECT  D 

USE  Sfilached  INDEX  schd_act 
SELECT  E 

USE  Sfilsubmi  INDEX  subm_nas 
DO  repm 
SELECT  G 
USE 

SELECT  F 
USE 

SELECT  B 
USE 

SELECT  D 
USE 

SELECT  E 
USE 

CASE  report ch=' O' 

IF  numfiles  >  1 
DO  REPO 


ENDIF 


CASE 

reportch='R' 

DO 

repr 

CASE 

reportch=' S' 

DO 

reps 

CASE 

reportch='  T1 

DO 

rept 

CASE 

reportch='  U‘ 

DO 

repu 

CASE 

reportch=' V 

DO 

repv 

CASE 

reportch='W 

DO 

repw 

CASE 

reportch='X 

DO 

repx 

ENDCASE 


IF  output='B'  .OR. output  =  ' D'  .OR. outputs 'A' 
?acp 

CLOSE  ALTERNATE 
ENDIF 

IF  output='P' . OR . outputs' B' 

?eop 
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SET  PRINT  OFF 
ENDIF 
ENDIF 
nn=nn+l 

reportoh  «  CHR(ASC('A'  )+nn) 
ENDDO 

*:  EOF:  MAINX.PRG 


****** ************************************** ****** ******************** 


* 

★ 

* 

* 

* 

* 

* 

* 


Program:  REPN1.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/17/90  16:2S 


* 

* 


Called  by:  MAINMAIN . PRG 


*:  Calls:  QUIT. PRG 

*:  :  REPN.PRG 


* 


*:  Documented  04/27/89  at  10:38  SNAP  I  version  3.12e 

★  ‘  *** *** * *** *****************************  ****************************** 


SET  CONFIRM  ON 
CLEAR 

0  1,20  SAY  'REPORT  N:  ASCII  INTERFACE' 

0  3,4  SAY  '  ' 

TEXT 

This  routine  converts  project  schedule  data  from  an  ASCII  file 
format  to  the  formats  used  in  the  Scheduling  Analysis  System  (SAS) . 

The  ASCI  file  must  have  been  previously  been  created  in  the  format 
specified  in  the  “Data  Exchange  Standard  Goal"  publication  (This 
standard  is  designed  as  a  standardized  logical  file  format,  into 
which  any  Project  Management  Software  which  has  the  ability  to  export 
data  in  ASCI  format,  can  save  data  for  each  project  into  a  single  file.) 


Refer  to  the  SAS  User  Manual  for  instructions  regarding  how  to  create 
this  ASCII  file,  or  for  more  detailed  information  refer  to  the  paper 
cited  above. 


If  this  ASCII  file  has  not  yet  been  created,  you  will  need  to 
exit  SAS  and  create  it. 

ENDTEXT 


exitnow='  ' 

020,15  SAY  'RETURN  TO  MAIN  MENU  NOW  <Y/N>  ?  '  GET  exitnow  PICTURE  '!' 
READ 


IF  exitnow='Y' 
RETURN 
ENDIF 
WAIT 


CLEAR 

0  3,  5  SAY  '  Assuming  that  this  ASCII  file  has  been  created,  you  will  be  prompted' 

0  4.  5  SAY  'to  enter  the  name  of  that  file,  and  it  will  bs  converted  to  the  file' 

0  5,  5  SAY  'formats  required  by  SAS.  This  report  will  also  ask  you  for  the  names  ' 

0  6,  5  SAY  'of  the  schedule  and  successor  files  to  create.  If  these  already  exist  ' 

0  7,  5  SAY  'you  will  be  given  the  option  to  exit  and  remove  the  files  or  choose  a  new' 

0  8,  5  SAY  'file  name.' 


37 


STORK  SPACE (12)  TO  aaciifile 
DO  WHILE  .T. 

09,5  SAT  'INPUT  THE  NAME  OF  THE  ASCII  FILE  CONTAINING  PROJECT  DATA  :  '  GET  aaciifila  PICTURE 

'imiimi!!' 

READ 

IF  aaciifile  =  '  ' 

EXIT 

ENDIF 

IF  .NOT.  FILE (aaciifile) 

010,10  SAT  'THAT  FILENAME  DOES  NOT  EXIST  IN  THE  CURRENT  DIRECTORT.  IF  TOU  HAVE' 

011,10  SAT  'MISTTPED  THE  NAME,  PLEASE  TYPE  IT  AGAIN.  HOWEVER,  IF  TOU  HAVE  TTPED' 

012,10  SAT  'THE  CORRECT  NAME,  TOU  MUST  EXIT  SAS  AND  CREATE  THIS  FILE.' 
exitnow*'  ' 

014,15  SAT  'EXIT  SAS  NOW  <T/N>  ?  '  GET  exitnow  PICTURE  '!' 

READ 

IF  exitnow*' Y' 

DO  QUIT 
ENDIF 
ELSE 
EXIT 
ENDIF 
ENDDO 

IF  aaciifile  <>  '  ' 

DO  WHILE  .T. 

STORE  SPACE (8)  TO  achdfil 

0  15,5  SAT  'INPUT  THE  NAME  OF  THE  SCHEDULE  FILE  TO  CREATE  :  '  GET  achdfil  PICTURE  'IMIIMI' 

0  16,5  SAT  'DO  NOT  INCLUDE  THE  .DBF  ENDING  ON  THE  NAME.' 

0  17,5  SAY  'ENTER  A  SPACE  IF  TOU  DO  NOT  WISH  TO  CREATE  A  SCHEDULE  FILE' 

READ 

IF  FILE (achdfil) 

0  18,10  SAT  'THAT  FILENAME  ALREADY  EXISTS.  PLEASE  USE  A  DIFFERENT  NAME  OF  DELETE' 

0  19,10  SAY  'THE  CURRENT  FILE  WITH  THAT  NAME.' 
exitnow  ■  '  ' 

0  20,10  SAY  'EXIT  SAS  NOW  <Y/N>  ?  '  GET  exitnow  PICTURE  '!' 

READ 

IF  exitnow  =  'Y' 

DO  QUIT 
ENDIF 
ELSE 
EXIT 
ENDIF 

0  15,5  CLEAR  TO  19,79 
ENDDO 

0  15,5  CLEAR  TO  16,79 

DO  WHILE  . T . 

STORE  SPACE (8)  TO  BUCfil 

0  15,5  SAY  'INPUT  THE  NAME  OF  THE  SUCCESSOR  FILE  TO  CREATE  :  '  GET  sucfil  PICTURE  '!!!!!!!!' 

0  16,5  SAT  'DO  NOT  INCLUDE  THE  .DBF  ENDING  ON  THE  NAME.' 

READ 
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IF  FILE (sucfil) 

0  17,10  SAY  ' THAT  FILENAME  ALREADY  EXISTS.  PLEASE  USE  A  DIFFERENT  NAME  OF  DELETE' 

0  18,10  SAY  'THE  CURRENT  FILE  WITH  THAT  NAME.' 
exitnow  =  '  ' 

0  19,10  SAY  'EXIT  SAS  NOW  <Y/N>  ?  '  GET  exitnow  PICTURE  '!' 

READ 

IF  exitnow  =  'Y' 

DO  QUIT 
ENDIF 
ELSE 
EXIT 
ENDIF 
ENDDO 

0  15,5  CLEAR  TO  19,79 
ENDIF 
CLEAR 

STORE  SPACE (12)  TO  submitfile 
DO  WHILE  .T. 

09,5  SAY  'INPUT  THE  NAME  OF  THE  ASCII  FILE  CONTAINING  SUBMITTAL  DATA  :  '  GET  submitfile  PICTURE 
'!!!!!!!!!!!!' 

READ 

IF  submitfile  =  '  ' 

EXIT 

ENDIF 

IF  .NOT.  FILE (submitfile) 

010,10  SAY  'THAT  FILENAME  DOES  NOT  EXIST  IN  THE  CURRENT  DIRECTORY.  IF  YOU  HAVE' 

011,10  SAY  'MISTYPED  THE  NAME,  PLEASE  TYPE  IT  AGAIN.  HOWEVER,  IF  YOU  HAVE  TYPED' 

012,10  SAY  'THE  CORRECT  NAME,  YOU  MUST  EXIT  SAS  AND  CREATE  THIS  FILE.' 
exitnow='  ' 

014,15  SAY  'EXIT  SAS  NOW  <Y/N>  ?  '  GET  exitnow  PICTURE  '!' 

READ 

IF  oxitnow='Y' 

DO  QUIT 
ENDIF 
ELSE 
EXIT 
ENDIF 
ENDDO 

IF  submitfile  <>  '  ' 

DO  WHILE  .T. 

STORE  SPACE (8)  TO  subfil 

0  15,5  SAY  'INPUT  THE  NAME  OF  THE  SUBMITTAL  FILE  TO  CREATE  :  '  GET  subfil  PICTURE  '!!!!!!!!' 

0  16,5  SAY  'DO  NOT  INCLUDE  THE  .DBF  ENDING  ON  THE  NAME.' 

READ 

IF  FILE (subfil) 

0  18,10  SAY  'THAT  FILENAME  ALREADY  EXISTS.  PLEASE  USE  A  DIFFERENT  NAME  OF  DELETE' 

0  19,10  SAY  ' THE  CURRENT  FILE  WITH  THAT  NAME.' 

GKitncv  — 

0  20,10  SAY  'EXIT  SAS  NOW  <Y/N>  ?  '  GET  exitnow  PICTURE  '!' 

READ 

IF  exitnow  =  'Y' 

DO  QUIT 
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ENDIF 

ELSE 

EXIT 

ENDIF 

0  15,5  CLEAR  TO  20,79 
ENDDO 
ENDIF 

IF  asciifile  <>  '  ' 

CLEAR 

0  3,  5  SAY  'The  ASCII  Interface  Modulo  will  use  ' +asciifile+'  for  the  input  file 
0  4,  5  SAY  «chdfil+'  will  to  used  for  the  schedule  database,  and  *+eucfilt'  will 
0  5,  5  SAY  'be  used  a r.  the-  successor  database.' 

STORE  '  '  TO  exitnow 
ENDIF 

SET  CONFIRM  OFF 
DO  repn 
RETURN 

*:  EOF:  REPN1.PRG 
AZ 
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AAAAAAAAAAAAAAAAAAAAAAA  ********  AAA  *  A  AAA  A  AA  AA  *******  AAA  A  A  A  It  it**  ******** 


A 

A 

★ 

★ 

* 

* 

A 

A 


Program:  MENUTHRE.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/27/89  0:55 


A 

A 


Called  by:  MAINMAIN . PRG 


* 

* 

* 

* 

* 

* 

* 


Calls:  FILEDISP.PRG 
:  GETSCHED . PRG 
:  SCHEDULE. PRG 
:  GETSUBMI . PRG 
;  SUBMIT. PRG 
:  GETPSSR. PRG 
:  PSSR.PRG 


* 

* 


Documented  04/27/89  at  10:38 


SNAP!  version  3.12e 


A*AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


option  =  0 
temp  =  0 
tempi  =  "0" 

CLEAR 

0  2,20  SAY  "FILE  PROCESSING  OPERATIONS" 
@4,4  SAY  "  " 

TEXT 


PROMAN  can  be  used  with  files  that  are  provided  in  ASCII,  according  to 
published  standard  file  formats  (see  users  manual)  or  files  can  be 
processed  from  the  Primavera  project  manager  program.  If  files  are 
imported  to  the  system  from  Primavera,  the  files  must  be  processed  prior 
to  use  with  PROMAN  reports.  The  processing  steps  need  be  repeated  only 
once  for  each  type  of  file.  A  menu  is  provided  to  enable  processing  of 
each  of  the  file  types  or  to  process  all  types  at  once.  Processing 
should  be  performed  whenever  new  data  files  are  added  to  the  PROMAN  area 
for  analysis.  Anytime  a  new  file  is  processed,  it  is  made  the  default 
file  name  for  the  most  current  files  in  the  report  modules.  As  a  result, 
users  need  only  press  return  to  select  a  file  for  most  current  information 
in  most  reports. 

ENDTEXT 


WAIT 
DO  WHILE 
CLEAR 
@  1,27 
0  2,27 
a  c(  io 

@  6,21 
0  7,21 
0  8,21 
0  9,21 


option  =  0 

SAY  "PROMAN  FILE  PROCESSOR  MENU" 

TO  1 4  63  DOUBLE 

SAY  '1  -  Process  Schedule  and  Successor  Files' 
SAY  '2  -  Process  a  Submittal  File' 

SAY  '3  -  Process  Subcontract/Procurement  files' 
SAY  '4  -  Process  Items  1,  2,  and  3' 
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0  10,21  SAY  '5  -  List  Database  Fllaa' 

3  11,21  SAY  '6  -  List  Fllaa  with  "PSSR"  Prefixes' 
0  13,21  SAY  '9  -  Exit  to  Main  Menu' 

0  17,21  SAY  'Please  enter  your  selection.' 

DO  filedisp 

DO  WHILE  tamp  =  0 
tamp  =  INKEY  () 

ENDDO 

tempi  =  UPPER (CHR (temp)) 

DO  CASE 

CASE  tempi  =  "1" 
option  =  1 
DO  getsched 
IF  option  >  0 
SET  STATUS  ON 
DO  schedule 
SET  STATUS  OFF 
ENDIF 
option  =  0 
CASE  tempi  =  "2" 
option  =  2 
DO  getsubmi 
IF  option  >  0 
SET  STATUS  ON 
DO  submit 
SET  STATUS  OFF 
ENDIF 
option  «=  0 
CASE  tempi  =  "3" 
option  =  3 
ac_exist  =  .F. 

DO  getpaor 
IF  option  >  0 
SET  STATUS  ON 
DO  pssr 
SET  STATUS  OFF 
ENDIF 
option  =>  0 
CASE  tempi  =  "4" 
option  =*  4 
DO  getsched 
IF  option  >  0 
DO  getsubmi 
ENDIF 

IF  option  >  0 

#*  M  ^  tf  I  ^  f  -  ^ 

o\»  OAADL  S  . 

DO  getpcsr 
ENDIF 

IF  option  >  0 
SET  STATUS  ON 
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DO  schedule 
DO  submit 
DO  pssr 
SET  STATUS  OFF 
ENDIF 
option  =  0 
CASE  tempi  =  "5" 
CLEAR 
DIR  *.dbf 
WAIT 

CASE  tempi  =  "6" 
CLEAR 

DIR  pssr*.* 

WAIT 

CASE  tempi  =  "9" 
option  =  9 
ENDCASE 
temp  =  0 
ENDDO 
RETURN 

*:  EOF:  MENUTHRE . PRG 
AZ 


**************************** ***************************************** 


Program:  CHGNAME . PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/27/89  0:56 

Called  by:  MAINMAXN . PRG 

Calls:  FILEDISP.PRG 

Uses:  FILELXST . DBF 

Documented  04/27/89  at  10:38  SNAP!  version  3.12e 

********* *********************************** ************************* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

★ 

* 

* 

CLEAR 


temp  =  0 

DO  WHILE  option  >  0 

filsched  «  filsched  +  "  " 

filsucces  *  filsucces  +  ”  " 

filsubmi  =>  filsubmi  +  "  " 

@8,5  SAY  "Change  the  active  file  names" 
e  10,10  SAY  "Active  Schedule  File  =  "  GET  filsched 
@  11,10  SAY  "Active  Successor  File  •«  "  GET  filsucces 

0  12,10  SAY  "Active  Submittal  File  <=  "  GET  filsubmi 

READ 

IF  .NOT.  FILE (filsched) 
temp  =  temp  +  1 
ENDIF 

IF  .NOT.  FILE (filsucces) 
temp  =  temp  +  1 
ENDIF 

IF  .NOT.  FILE (filsubmi) 
temp  =  temp  +  1 
ENDIF 


IF  temp  =  0 
SELECT  1 
USE  filelist 
GOTO  TOP 

REPLACE  schedule  WITH  UPPER (TRIM (filsched) ) 
REPLACE  successor  WITH  UPPER(TRIM(filsucces) ) 
REPLACE  submittal  WITH  UPPER (TRIM ( fil submi ) ) 
option  =  0 
USE 

RETURN 

ENDIF 

e  20,1  CLEAR  TO  24, 79 
DO  filedisp 
t  cmp  —  C 
ENDDO 


*:  EOF:  CHGNAME . PRG 
AZ 
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** ***************** ******************* **************** *************** 


* 

* 

-* 

★ 

★ 

* 

* 

★ 


Program:  FILEDISP.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1939,  USA-CERL/ASC/RCE 
Last  modified:  04/20/89  22:43 


*:  Called  by:  SETFILES . PRG 

*:  :  MENUONE.PRG 

* :  :  MENUTHRE . PRG 

*:  :  CHGNAME . PRG 


* 


*:  Documented  04/27/89  at  10:38  SNAP!  version  3.12e 

*  ******  *  ***★  *****  *  *  ★*  ********  ★  ******  irk  irk*  *  irk  -kit  ★  ★★  irk*  ★  irk  ******  ★  ★* 


tempi  =  "  <-  Does  Not  Exist  " 
temp2  =  tempi 
temp3  =  tempi 
IF  FILE (filsched) 
tempi  =  "  " 

ENDIF 

IF  FILE (filsucces) 
temp2  =  "  " 

ENDIF 

IF  FILE (filsubmi) 
temp3  =  "  " 

ENDIF 

021,20  SAY  "Active  Schedule  File  =  "  +  filsched 

022,20  SAY  "Active  Successor  File  =  "  +  filsucces 

023,20  SAY  "Active  Submittal  File  =  "  +  filsubmi 

021,57  SAY  tempi 

022,57  SAY  temp2 

023,57  SAY  temp3 

@20,18  TO  24,57 

RETURN 

*:  EOF:  FILEDISP.PRG 
AZ 
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outputs' P' 

@1,20  SAY  'CHOOSE  OUTPUT  METHOD:' 

@4,10  SAY  'P  Print  Report' 

05,10  SAY  'B  Print  AND  Make  Disk  File  of  Report. WITH  PRINTER  CODES' 

@6,10  SAY  'D  Make  Disk  File  of  Report  WITH  PRINTER  CODES' 

@7,10  SAY  'A  Make  Disk  File  of  Report  WITHOUT  PRINTER  CODES' 

DO  WHILE  .T. 

@9,15  SAY  'SELECT  ONE  OF  THESE  OPTIONS  <P,B,D  or  A>:  '  GET  output  PICTURE  '!' 

READ 

@11,0 

yn=.n. 

DO  CASE 

CASE  output$ ' PBDA' 

011,20  SAY  'VALID  OUTPUT  CHOICE.' 

EXIT 

OTHERWISE 

SET  COLOR  TO  terrcol 

@11,20  SAY  'NOT  A  VALID  OPTION  -  SELECT  AGAIN!' 

SET  COLOR  TO  Smenucol 
LOOP 
ENDCASE 
ENDDO 

IF  outputs' p' .OR. outputs' B' .OR. outputs' D' 

@13,10  SAY  '  Even  if  you  chose  to  direct  your  Reports  only  to  a  disk  file,' 
@14,10  SAY  'information  about  the  printer  on  which  this  disk  file  will  eventually' 
@15,10  SAY  'be  printed  is  required  to  properly  format  the  output,  IF  you  will  be' 
@16,10  SAY  'sending  the  file  directly  to  a  printer.' 

@18,15  SAY  'Please  identify  your  printer  type:' 

@19,20  SAY  'W  Epson  Hide-Carriage  or  Compatible' 

@20,20  SAY  'L  Hewlett-Packard  LaserJet  or  LaserJet  2' 

PRINTERS' L' 

DO  WHILE  .T. 

@22,15  SAY  'Enter  Your  Choice:  '  GET  PRINTER  PICTURE  '!' 

READ 

@23,0 

IF  . NOT . PRINTER$ ' WL ' 


SET  COLOR  TO  Cerrcol 

@24,20  SAY  'INCORRECT  CHOICE  -  PLEASE  RE-ENTER' 

SET  COLOR  TO  fimenucol 
ELSE 
EXIT 
ENDIF 
ENDDO 
DO  CASE 

CASE  PRINTER=' L' 

maxlinesa=53  ti  Maximum  no.  data  lines  allowed  per  page,  for  each  Report 
maxlinesf=S3 
maxlinesg=53 
maxlinesh=53 
maxlinesi=53 
maxlines j=53 
maxlinesk=53 
maxlinesl=53 
maxlinesn=53 
maxlineso=S3 
CASE  PRINTERS' W' 
maxlinesa=53 
maxlinesf=53 
maxlinesg=S3 
maxlinesh=53 
maxlinesi=S3 
maxlines j=S3 
maxlinesk=S3 
maxlinesl=S3 
maxlinesn=53 
maxlineso=53 
ENDCASE 
eop=CHR(12) 

DO  CASE  SS  Printer  setup  strings  for  Reports 
CASE  PRINTERS' L' 

intro__on="CHR(27)  +  '  fillO'  +CHR (27)  +'  S17. 0C'  +CHR (27)  +  '  (s4.16H'+CHR(27)  +  ' £kl8.7H'+CHR(27)+’  (s3B'  " 

*  Landscape  ?  Character  size/B0LD(?)  Spacing  of  letters  Bold  ON 

intro_off=  "CHR (27)+'£l5, 57C' +CHR (27) +' £k9 . 3SH' +CHR (27)  +'  £16D' +CHR (27) +' (sOB' " 

header_on="CHR(27)+'£l7.0C'+CHR(27)+'  (s4 . 16H' +CHR (27)  +  ' £kl8. 7H' +CHR(27) +'  (s3B' +CHR(27) +' fil8D' " 

*  ?  font  size?  spacing  of  letters  Bold  ON  8  lines/inch 

header_mid="CHR(27) +'  (s3B' +CHR(27) +' £15 . 57C' +CHR(27)+'  (sl6 . 67H' +CHR (27) +' £k9 . 35H' " 
header_of f="CHR (27) +' (sl6 . 67H' +CHR (27) +' S18D' “ 

footer_on="CHR(27) +' £15 . 57C' +CHR (27) +' (sl6. 67H' +CHR  (27) +  ' £k9.35H' " 
footer_of f="CHR (27) +'  (sl6. 67H' " 

CASE  PRINTERS' W' 

intro_on="CHR (27) +CHR (64) +CHR (27) +' Wl' +CHR (27) +' E' "  ££  Reset,  ON  Expanded,  Emphasized 
intro_off="CHR(27)+'W0'+CHR(27)+'F'+CHR'27)+'M"’  ££  OFF  Expanded,  Emphasized,  ON  Elite 
header_on="CHR (27) +CHR (64) +CHR (27) +CHR (18) +CHR (27) +' P ' +CHR (27) +' E' ”  ££  OFF  Compressed,  ON  Pica, 
Emphasized 

header_mid="CHR(27) +' F' "  ££  OFF  Emphasized 
header_off="CHR(27)+CHR(15) "  ££  ON  Compressed 

footer_on="CHR (27) +CHR (18) +CHR (27) +' M' "  ££  OFF  Compressed,  ON  Elite 
footer_off="CHR(27) +' P' "  S£  ON  Pica  (OFF  Elite) 
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ENDCASE 


ENDIF 

IF  output*' A' 
maxlin««a=53 
maxlin«sf=53 
maxlina»g*53 
maxlin«8h*53 
raaxlinosi=53 
maxlinaa J*53 
maxlin»»k*53 
maxlinaal=53 
maxlinasn=53 
maxlin«Bo=53 
intro_on=' ' 
intro  off*' ' 
header_on*' ' 
header_mid*' ' 
header_off=' ' 
footar__on=' ' 
footer_off=' ' 

* 

eop*' ' 

ENDIF 

* 

RETURN 

*:  EOF:  PRINTSET.PRG 
AZ 


* 

* 

* 

★ 

* 

* 

* 


Program:  SETPARMS.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (o)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/26/89  16:31 


* 

* 

★ 


Called  by:  MAINX.PRG 


* 

★ 

* 

* 

* 

★ 

■k 

* 

* 

* 

* 

* 


Calls:  PAR_E.PRG 
:  PAR_F.PRG 
:  PARJ3.PRG 
:  PAR_H.PRG 
:  PARJE .  PRG 
:  PARJC.PRG 
:  PAR_L.PRG 
:  REPM_INT .  PRG 
:  PAR__0 .  PRG 
:  NTFST.PRG 

:  CERTIFY  (procedure  in  PROCS.PRG) 


*:  Documented  04/27/89  at  10:38  SNAP!  version  3.12e 

* • ********  ******************************************  ******************* 


* 


*  Program  sets  parameters  for  all  batched  reports 

* 


* 


PRIVATE  nn, temp, tchr, flag 
nn  =  0 

reportch  =  'A' 


DO  WHILE  nn  <  17 

tchr  =  CHR (ASC ( ' A' ) +nn) 
option  =  1 

IF  tchr$reportst  .OR.  tchr  =  "Q" 
flag  =  0 
DO  CASE 

CASE  tchr  =  "E" 

DO  par_e 
CLEAR 

Q  10,10  SAY  "Report  E  —  PSSR/Schedule/Submittal  Comparison  1" 

0  11,10  SAY  "will  be  run  with:" 

0  13,20  SAY  "FLOAT  =  "+RTRIM (LTRIM (STR (refloat ))) +"  working  days." 
flag  =  1 
CASE  tchr  =  "F" 

DO  par_f 
CLEAR 


49 


0  10,10  SAY  "Report  F  —  PSSR/Schedule/Submittal  Comparison  2" 

0  11,10  SAY  "will  ba  run  with:" 

0  13,20  SAY  "%  FLOAT  -  "+LTRIM (RTRIM (STR (rfpar cent) ) ) 
flag  -  1 
CASE  tohr  =  "G" 

DO  par_g 
CLEAR 

0  10,10  SAY  "Report  G  --  Resource  Loading  Analysis  -  Manpower  Variance" 

0  11,10  SAY  "will  be  run  with:" 

0  13,20  SAY  "Men/Day  «  "+LTRIM (RTRIM  (SIR  (rgmn) ) ) 

0  14,20  SAY  "STD. DEV.  «  "+LTRIM (RTRIM (STR (rgad) ) ) +"  for  the  threshold" 

0  15,20  SAY  "Grouping  Code  =  "  l-LTRIM  (RTRIM  ( rgcode ) ) 

0  17,30  SAY  "1  =  STUD  2  =  RESP  3  *  WAD  4  =  SORT" 

0  18,30  SAY  "5  =  SUB  6  =  AREA  7  =  SUB-AREA  8  ■  TYPE" 
flag  =  1 
CASE  tchr  =  "H" 

DO  par_h 
CLEAR 

0  10,10  SAY  "Report  H  —  Reaource  Loading  Analysis  -  Funding  Variance" 

0  11,10  SAY  "will  be  run  with:" 

0  13,20  SAY  "$/Day  -  "+LTRIM (RTRIM (STR(rhdl) ))+"." 

0  14,20  SAY  "STD. DEV.  -  "+LTRIM (RTRIM (STR (rhsd) )) +"  for  the  threshold" 

0  15,20  SAY  "Grouping  Code  *  "+LTRIM (RTRIM (rhcode) ) 

0  17,30  SAY  "1  -  STND  2  -  RESP  3  -  WAD  4  =  SORT" 

0  18,30  SAY  "5  =  SUB  6  =  AREA  7  -  SUB-AREA  8  =  TYPE" 

flag  =  1 
CASE  tchr  =  "I" 

DO  par_i 
CLEAR 

0  10,10  SAY  "Report  I  —  Resource  Loading  Analysis  -  Time  Variance" 

0  11,10  SAY  "will  be  run  with:" 

0  13,20  SAY  "Days/activity  =  "+LTRIM(RTRIM (STR(ridy) ))+"." 

0  14,20  SAY  "STD. DEV.  a  "+LTRIM (RTRIM (STR (risd) )) +"  for  the  threshold" 

0  15,20  SAY  "Grouping  Code  *  "+LTRIM (RTRIM (ricode) ) 

0  17,30  SAY  "1  «  STND  2  «  RESP  3  a  WAD  4  =  SORT" 

0  18,30  SAY  "5  =  SUB  6  =  AREA  7  a  SUB-AREA  8  =  TYPE" 

flag  *  1 
CASE  tchr  =  "K" 

DO  par_k 
CLEAR 

0  10,10  SAY  "Report  K  —  Activities  to  Crash" 

0  11,10  SAY  "will  be  run  with:" 

0  13,20  SAY  "Man  Power  Loading  a  "+LTRIM (RTRIM (STR (mpl) ))+". " 

0  14,20  SAY  "Duration  =  "+LTRIM (RTRIM (STR (durat) ) ) 

0  15,20  SAY  "Relational  Duration  =  "+LTRIM (RTRIM (STR (reldur) ) )+"%" 

flag  =  1 
CASE  tchr  =  "L" 

DO  par_l 
CLEAR 

0  10,10  SAY  "Report  L  —  Delays  in  Design" 

0  11,10  SAY  "will  be  run  with:" 

0  13,20  SAY  "Previous  schedule  =  "+LTRIM(TRIM(filschll) ) 
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g  14,20  SAY  "Current  schedule  =  "+LTRIM(TRIM(filsch21) ) 

0  15,20  SAY  "STND  Code  =  "+LTRIM(RTRIM(stnd) ) 

0  16,20  SAY  "Float  =  "+LTRIM (RTRIM(STR(ufloat) ) ) 

0  17,20  SAY  "%  Difference  Limit  >»  "+LTRIM(RTRIM(STR(upercent*100) ) )+"%" 

flag  =  1 
CASE  tchr  =  "M" 

DO  repm_int 
CLEAR 

IF  option  a  0 
RETURN 
ENDIF 

0  10,10  SAY  "Report  M  —  Contractor  Grading" 

0  11,10  SAY  "will  be  run  with:" 

0  13,20  SAY  "Data  Date  =  "+DT0C (datadate) 

0  15,20  SAY  "Grading  scales  as  entered  or  accepted" 

IF  mch  =  'S' 

0  17,20  SAY  "Summary  reports  will  be  run." 

ELSE 

IF  mch  a  'D' 

0  17,20  SAY  "Detail  reports  will  be  run." 

ELSE 

0  17,20  SAY  "Summary  and  Detail  reports  will  be  run." 

ENDIF 
ENDIF 
flag  =  1 
CASE  tchr  =  "0" 

DO  par_o 
CLEAR 

0  10,10  SAY  "Report  O  —  Slippage" 

0  11,10  SAY  "will  be  run  with:" 

0  13,20  SAY  "Schedule  1  (most  recent)  =  "+TRIM(filschedl) 

0  14,20  SAY  "Schedule  2  =  "+TRIM(filsched2) 

0  15,20  SAY  "Schedule  3  =  "+TRIM (filsched3) 

0  16,20  SAY  "Schedule  4  =  "+TRIM(filsched4) 

0  17,20  SAY  "Schedule  5  (oldest)  =  "+TRIM (filschedS) 

flag  =  1 
CASE  tchr  =  "Q" 

IF  ' R'  $reportst .OR.  'S' $reportst .OR. ' T' $reportst .OR. ' U'  $reportst  .OR.  ; 

'V' $reportst .OR. ' W' $reportst .OR. 'X' $ report st 
DO  ntfst 
CLEAR 

0  10,10  SAY  "Report  R  through  X" 

0  11,10  SAY  "will  be  run  with:" 

0  13,20  SAY  "Recent  Schedule  =  "+TRIM (ntfschedl) 

0  14,20  SAY  "Recent  Logic  =  "+TRIM(ntflogicl) 

0  15,20  SAY  "Previous  Schedule  =  "+TRIM(ntfsched2) 

0  16,20  SAY  "Previous  Logic  =  "+TRIM (ntf logic2) 

IF  optiofi  —  0 
RETURN 
ENDIF 
ENDIF 
flag  =  1 
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ENDCASE 
IF  flag  =  1 
DO  cartify 
flag  “  0 
ENDIF 
ENDIF 

IF  option  *  0 
RETURN 
ELSE 

IF  option  <  8 
nn  a  nn  +  1 
option  ■=  1 
ENDIF 
ENDIF 
ENDDO 

*:  EOF:  SETPARMS.PRG 
AZ 


*  KEYPRESS. PRG  -  What  to  do  id  user  presses  a  key  during  batch  operation 

dun.my=INKEY  ( )  it  Clear  out  keypress 

zz=.n. 

*SET  COLO  TO  GR+/R, GR+/R* 

@24,60  SAY  'Abort  (y/N)?'  GET  zz  PICTURE  'Y' 

*SET  COLO  TO 
READ 
IF  zz 
DO  QUIT 
ENDIF 
@24, 60 
RETURN 

*:  EOF:  KEYPRESS. PRG 
'•Z 
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** ************************************************** a**************** 


* 

★ 


Program:  INTRO. PRG 


* 

* 

* 

* 

* 


System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/26/89  17:44 


*:  Called  by:  MAINX.PRG 

*  ■ 


*  ; 

Calls:  7SPACE () 

(function 

in 

?> 

*  ; 

:  . NOT. EOF  () 

(function 

in 

?> 

*• 

:  .AND. . NOT. EOF () (function 

in 

?> 

* 


Documented  04/27/89  at  10:39  SNAP!  version  3.12e 

* • ********************************************************************* 


**  INTRO. PRG  -  Get  user's  choice  of ‘ output  device;  print  intro  to  each  Report 

JET  COLOR  TO  toutputcoi 

024,0 

CLEAR 


*  Do  Intro  for  each  Report 
IF  TRIM(reportch)  >  TRIM('Q') 
RETURN 
ENDIF 


?tintro_on 

7 

’SPACE (17)+' PROJECT  MANAGEMENT  TOOLS:  REPORT  ' +reportch 

7 

7 

DO  CASE 


CASE  reportch='A' 

SET  COLOR  TO  Coxtracol 

024,4  SAT  'REPORT  A:  PSSR/Schedule  Matching' 

SET  COLOR  TO  Coutputcol 

’SPACE (23)+' PSSR/SCHEDULE  MATCHING' 

? 

?fiintro_off 

V  (  ALGORITHM:  Report  A  prints  data  for  each  Schedule  Activity  which  matches  one  or  more 

PSSR  (Procurement) 

?[  File)  Activity  ID  numbers.  (Note  that  duplicate  Activity  ID  numbers  in  the  PSSR  files 

are  repeated  if) 

?  (  they  match  more  than  1  Schedule  Activity  ID  number,  using  a  match  of  the  first  9 

<*haractors . ) ) 

7 

?[  USER-MODIFIABLE  ITEMS:  Initial  PSSR  and  Schedule  filename*.) 

7 

?C  OUTPUT:  Output  from  Report  A  follows  the  same  format  as  that  from  Reports  C,  D,  E  and 

F.  The  following) 

?t  items  are  listed  from  each  matching  Schedule  Activity,  in  this  order:  Schedule  Activity 

ID  number,  Title) 

?[  (in  text),  Early  Start  date.  Early  Finish  date.  Late  Start  date,  Late  Finish  date,  Float 
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(in  days).  Original) 

?[  Duration  of  Activity  (in  days).  Remaining  Duration  of  Activity  (in  days,  and  at  the  time 

the  Schedule  was] 

?[  last  calculated  in  Primevera) ,  and  Percent  Completed  of  Activity.) 

? 

?[  For  all  PSSR  Activities  matching  each  Schedule  Activity,  the  following  items  are  listed 

in  this  order:] 

?[  PSSR  Activity  ID  number,  Description  (text).  Vendor  Name  (text),  Arrive  on  Site  date, 

Required  date,  the] 

?(  difference  in  days  between  the  Schedule  Early  Start  date  and  the  PSSR  Arrive  on  Site 

date,  and  an  arrow  for] 

?  [  each  group  of  matching  PSSR  Activities  indicating  which  of  them  shows  the  largest 

difference  between  the] 

?[  Schedule  Early  Start  date  and  the  PSSR  Arrive  on  Site  date.] 

?[  At  the  end  of  Report  A,  the  number  of  Schedule  Activities  and  the  number  of  PSSR 

Activities  which  met] 

?[  the  search  criteria  is  listed.] 

CASE  reportch='B' 

SET  COLOR  TO  Sextracol 

024,4  SAY  "REPORT  B:  PSSR/Schedule  'PR'  Code  Matching" 

SET  COLOR  TO  Soutputcol 

7SPACE (19)+ [PSSR/SCHEDULE  'PR'  CODE  MATCHING] 

•> 

?sintro_of f 

?[  ALGORITHM:  Report  B  prints  data  for  each  Schedule  Activity  which  is  a  'Procurement' 

Activity  (and  thus] 

?[  has  a  'PR'  or  a  ' PR-'  embedded  in  its  Actvity  Number),  AND  lacks  any  matching  Actvities 

in  the  the  PSSR] 

?[  (Procurement)  File.  Therefore,  Report  B  only  lists  Activity  data  from  the  Schedule 

files.] 

•> 

?[  USER-MODIFIABLE  ITEMS:  Initial  PSSR  and  Schedule  filenames.] 

■> 

?[  OUTPUT:  Output  from  Report  B  includes  the  following  items  listed  from  each  Schedule 

Activity  meeting  the] 

?(  above  criteria,  in  this  order:  Schedule  Activity  ID  number.  Title  (in  text).  Early 

Start  date,  Early  Finish] 

?[  date,  Late  Start  date.  Late  Finish  date.  Float  (in  days),  Original  Duration  of  Activity 

(in  days) ,  Remaining] 

?[  Duration  of  Activity  (In  days,  and  at  the  time  the  Schedule  was  last  calculated  In 

Primevera)  ,  and  Percent) 

?[  Completed  of  Activity.] 

7 

0 (  At  the  end  of  Report  B,  the  number  of  Schedule  Activities  which  met  the  search  criteria 

is  listed. ] 

CASE  reportch='C' 

SET  COLOR  TO  Sextracol 

@24,4  SAY  'REPORT  C:  PSSR/Schedule;  Date  Comparison  1' 

SET  COLOR  TO  Soutputcol 
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? SPACE (19)+'PSSR/SCHEDULE;  DATE  COMPARISON  1' 

? 

?<intro_off 

?[  ALGORITHM:  Report  C  prints  data  for  each  Schedule  Activity  which  matches  one  or  more 

PSSR] 

?[  (Procurement  File)  Activity  ID  numbers,  AND  for  which  the  latest  PSSR  Arrive  at  Site 

date  is  later  than  the] 

?[  matching  Schedule  Early  Start  date,  AND  for  which  the  matching  Schedule  Activity  has 

a  Float  of  less  than  10] 

?[  working  days.  (Note  that  duplicate  Activity  ID  numbers  in  the  PSSR  files  are  repeated 

if  they  match  more] 

?(  than  1  Schedule  Activity  ID  number,  using  a  match  of  the  first  9  characters.)] 

? 

?[  USER-MODIFIABLE  ITEMS:  Initial  PSSR  and  Schedule  filenames.] 

? 

?(  OUTPUT:  Output  from  Report  C  follows  the  same  format  as  that  from  Reports  A,  D,  E  and 

F.  The  following] 

?[  items  are  listed  from  each  matching  Schedule  Activity,  in  this  order:  Schedule  Activity 

ID  number.  Title] 

?[  (in  text),  Early  Start  date,  Early  Finish  date.  Late  Start  date,  Late  Finish  date.  Float 

(in  days) ,  Original] 

?[  Duration,  of  Activity  (in  days),  Remaining  Duration  of  Activity  (in  days,  and  at  the 

time  the  Schedule  was] 

?[  last  calculated  in  Primevera) ,  and  Percent  Completed  of  Activity.] 

? 

?  [  For  all  PSSR  Activities  matching  each  Schedule  Activity,  the  following  items  are  listed 

in  this  order:] 

?[  PSSR  Activity  ID  number.  Description  (text).  Vendor  Name  (text),  Arrive  on  Site  date. 

Required  date,  the] 

?[  difference  in  days  between  the  Schedule  Early  Start  date  and  the  PSSR  Arrive  on  Site 

date,  and  an  arrow  for] 

?[  each  group  of  matching  PSSR  Activities  indicating  which  of  them  shows  the  largest 

difference  between  the] 

?[  Schedule  Early  Start  data  and  the  .PSSR  Arrive  on  Site  date.] 

•> 

?[  At  the  end  of  Report  C,  the  number  of  Schedule  Activities  and  the  number  of  PSSR 

Activities  which  met] 

?(  the  search  criteria  is  listed.] 

CASE  reportch='D' 

SET  COLOR  TO  fiextracol 

@24,4  SAY  'REPORT  D:  PSSR/Schedule;  Date  Comparison  2' 

SET  COLOR  TO  Soutputcol 

’SPACE (19)+' PSSR/SCHEDULE;  DATE  COMPARISON  2' 

o 

?Sintro_off 

ALGORITHM:  Report  D  prints  data  for  each  Schedule  Activity  which  matches  one  or  more 

PSSR  (Procurement] 

?C  File)  Activity  ID  numbers,  AND  for  which  the  latest  PSSR  Arrive  at  Site  date  is  later 

than  the  matching] 

?C  Schedule  Early  Start  date  by  a  number  of  days  greater  than  20%  of  the  Float  for  that 

Activity,  AND  for] 


56 


?[  which  the  matching  Schedule  Activity  had  a  Float  of  greater  than  10  working  days.  (Note 

that  duplicate] 

?[  Activity  ID  numbers  in  the  PSSR  files  are  repeated  if  they  match  more  than  1  Schedule 

Activity  ID  number, ] 

?[  using  a  match  of  the  first  9  characters.)] 

o 

?[  USER-MODIFIABLE  ITEMS:  Initial  PSSR  and  Schedule  filenames.] 

? 

?[  OUTPUT:  Output  from  Report  D  follows  the  same  format  as  that  from  Reports  A,  C,  E  and 

F.  The  following] 

?[  items  are  listed  from  each  matching  Schedule  Activity,  in  this  order:  Schedule  Activity 

ID  number.  Title] 

?[  (in  text).  Early  Start  date,  Early  Finish  date,  Late  Start  date.  Late  Finish  date.  Float 

(in  days) ,  Original] 

?[  Duration  of  Activity  (in  days),  Remaining  Duration  of  Activity  (in  days,  and  at  the  time 

the  Schedule  was] 

?[  last  calculated  in  Primevera) ,  and  Percent  Completed  of  Activity.] 

•> 

?t  For  all  PSSR  Activities  matching  each  Schedule  Activity,  the  following  items  are  listed 

in  this  order:] 

?[  PSSR  Activity  ID  number.  Description  (text),  Vendor  Name  (text),  Arrive  on  Site  date. 

Required  date,  the] 

?[  difference  in  days  between  the  Schedule  Early  Start  date  and  the  PSSR  Arrive  on  Site 

date,  and  an  arrow  for] 

?  [  each  group  of  matching  PSSR  Activities  indicating  which  of  them  shows  the  largest 

difference  between  the] 

?[  Schedule  Early  Start  date  and  the  PSSR  Arrive  on  Site  date.] 

? 

?[  At  the  end  of  Report  D,  the  number  of  Schedule  Activities  and  the  number  of  PSSR 

Activities  which  met] 

?[  the  search  criteria  is  listed.] 

CASE  reportch='E' 

SET  COLOR  TO  Sextracol 

@24,4  SAY  'REPORT  E:  PSSR/Schedule/Submittal  Comparison  1' 

SET  COLOR  TO  fioutputcol 

?SPACE(17)+'PSS  /SCHEDULE/SUBMITTAL  COMPARISON  1' 

? 

?Sintro_off 

’ (  ALGORITHM:  Report  E  compares  date  consistency  among  Activities  having  matching 

information  in  the  Schedule, ] 

’[  PSSR,  and  Submittal  Register  files.  Data  is  printed  for  each  Schedule  Activity  which 

matches  one  or  more  PSSR] 

’(  (Procurement)  File  Activities  AND  contains  matching  information  in  the  Submittal  file, 

AND  for  which  the  PSSR] 

?[  'Submittal  to  CE'  and  'CE  Submittal  Approval'  dates  do  not  match,  AND  for  which  the 

Schedule  Activity  has  less] 

?[  than  (by  default)  10  days  of  Float.  (Note  that  duplicate  Activity  ID  numbers  in  the 

PSSR  files  are  repeated] 

?(  if  they  match  more  than  1  Schedule  Activity  ID  number,  using  a  match  of  the  first  9 

characters . ) ] 

■> 
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?[  USER-MODIFIABLE  ITEMS:  Initial  PSSR,  Schedule  and  Submittal  filanamaa.  Alao,  the  user 

can  change  the  value] 

?[  of  the  float  (10  days  by  default).] 

?'  FOR  THIS  RUN,  THESE  VALUES  ARE:  Float  =  '+LTRIM(STR(refloat) )+'  daya' 

■> 

?[  OUTPUT:  Output  from  Report  E  follow*  the  aame  format  aa  that  from  Reporta  A,  C,  D  and 

F.  The  following  items] 

?[  are  listed  from  each  matching  Schedule  Activity,  in  thia  order:  Schedule  Activity  ID 

number.  Title  (in  text) , ] 

?[  Early  Start  date.  Early  Finiah  date,  Late  Start  date.  Late  Finish  date,  Float  (in  daya), 

Original  Duration] 

?[  of  Activity  (in  days),  Remaining  Duration  of  Activity  (in  daya,  and  at  the  time  the 

Schedule  was  last] 

?[  calculated  in  Primevera) ,  and  Percent  Completed  of  Activity.]- 

j 

?  [  For  all  PSSR  Activities  matching  each  Schedule  Activity,  the  following  items  are  listed 

in  this  order:] 

?[  PSSR  Activity  ID  number.  Description  (text),  Vendor  Name  (text).  Arrive  on  Site  date, 

Required  date,  the] 

?[  difference  in  days  between  the  Schedule  Early  Start  date  and  the  PSSR  Arrive  on  Site 

date,  and  an  arrow  for] 

?[  each  group  of  matching  PSSR  Activities  indicating  which  of  them  shows  the  largest 

difference  between  the] 

?[  Schedule  Early  Start  date  and  the  PSSR  Arrive  on  Site  date.] 

? 

?[  At  the  end  of  Report  E,  the  number  of  Schedule  Activities  and  the  number  of  PSSR 

Activities  which  met] 

? [  the  search  criteria  is  listed. ] 

CASE  reportch='F' 

SET  COLOR  TO  Sextraocl 

024,4  SAY  'REPORT  F:  PSSR/Schedule/Submittal  Comparison  2' 

SET  COLOR  TO  Soutputcol 

2SPACE (17) +' PSSR/SCKEDULE/SUBMITTAL  COMPARISON  2' 

? 

?£intro_off 

?(  ALGORITHM:  Report  F  compares  date  consistency  among.  Activities  having  matching 

information  in  the  Schedule, ] 

?(  PSSR,  and  Submittal  Register  files.  Data  is  printed  for  each  Schedule  Activity  which 

matches  one  or  more  PSSR] 

?(  (Procurement)  File  Activities  AND  contains  matching  information  in  the  Submittal  file, 

AND  for  which  the  PSSR] 

?[  'Submittal  to  CE'  and  'CE  Submittal  Approval'  dates  do  not  match,  AND  for  which  the 

difference  between  the  PSSR] 

?(  dates  and  the  Schedule  dates  is  greater  than  (by  default)  20%  of  the  Float.  (Note  that 

duplicate  Activity  ID] 

?[  numbers  in  the  PSSR  files  are  repeated  if  they  match  more  than  1  Schedule  Activity  ID 

number,  using  a  match  ofl 

?[  the  first  9  characters.)] 

?C  USER-MODIFIABLE  ITEMS:  Initial  PSSR,  Schedule  and  Submittal  filenames.  Also,  the  user 

can  change  the  percentage] 
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?{  difference  (20%  by  default),  as  defined  above.] 

?'  FOR  THIS  RUN,  THESE  VALUES  ARE:  Percentage  =  ' +LTRIM(STR(rf percent) )+'  %' 

7 

?[  OUTPUT:  Output  from  Report  F  follows  the  same  format  as  that  from  Reports  A,  C,  D  and 

E.  The  following  items] 

?(  are  listed  from  each  matching  Schedule  Activity,  in  this  order:  Schedule  Activity  ID 

number.  Title  (in  text) , ] 

?[  Early  Start  date,  Early  Finish  date.  Late  Start  date,  Late  Finish  date,  Float  (in  days), 

Original  Duration] 

?(  of  Activity  (in  days).  Remaining  Duration  of  Activity  (in  days,  and  at  the  time  the 

Schedule  was  last] 

?[  calculated  in  Primevera) ,  and  Percent  Completed  of  Activity.] 

7 

?[  For  all  PSSR  Activities  matching  each  Schedule  Activity,  the  following  items  are  listed 

in  this  order:] 

?(  PSSR  Activity  ID  number.  Description  (text).  Vendor  Name  (text).  Arrive  on  Site  date. 

Required  date,  the] 

? [  difference  in  days  between  the  Schedule  Early  Start  date  and  the  PSSR  Arrive  on  Site 

date,  and  an  arrow  for] 

?[  each  group  of  matching  PSSR  Activities  indicating  which  of  them  shows  the  largest 

difference  between  the] 

?[  Schedule  Early  Start  date  and  the  PSSR  Arrive  on  Site  date.] 

7 

?  [  At  the  end  of  Report  F,  the  number  of  Schedule  Activities  and  the  number  of  PSSR 

Activities  which  met] 

?(  the  search  criteria  is  listed.] 

CASE  reportch='G'  £6  Resource  Loading  Analysis  Module/Manpower  Variance 
SET  COLOR  TO  £extracol 

024,4  SAY  'REPORT  G:  Resource  Loading  Analysis;  Manpower  Variance' 

SET  COLOR  TO  £ output col 

7SPACE  (13)  +  '  RESOURCE  LOADING  ANALYSIS:  MANPOWER  VARIANCE' 

7 

?£lntro_off 

?(  ALGORITHM:  Report  G  selects  and  prints  those  Activities  requiring  more  than  (by 

default)  20  Men  Per  Day,  and] 

?[  calculates  and  prints  the  Number  in  the  Group,  the  Mean  and  Standard  Deviation  for  the 

Man  Per  Day  for  groups  of] 

?[  Activities  in  the  same  (by  default)  CSI  Standard  Code  group.  It  identifies  those 

Activities  for  which  the  Men  Per] 

?[  Day  is  greater  than  (by  default)  1.00  Standard  Deviations  above  OR  below  the  group  Mean, 

and  lists  the  number  of] 

?(  multiples  of  the  Men  Per  Day  value,  relative  to  the  group  Mean.  (Activities  with  "Pet" 

=  100%  are  screened  out.)] 

7 

?[  USER-MODIFIABLE  ITEMS:  Initial  Schedule  filename.  Also,  the  user  can  change  the  value 

of  the  number  of]  • 

:  i  Men  Per  Day  per  Activity  above  which  to  search  (20  men  by  default) ,  the  threshold  number 

of  Standard  Deviations] 

?[  1.00  by  default)  above  or  below  the  group  mean  by  which  to  flag  particular  Activities, 

and  the  Activity  Code  or] 

?[  Activity  ID  Code  (the  STND  Code  by  default)  used  to  group  Activities.  All  of  these 
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user-defined  items  are] 

?[  listed  on  this  title  page;  in  addition,  the  Activity  Code  or  Activity  ID  Code  and  the 

threshold  number  of] 

?[  Standard  Deviations  are  included  in  the  header  of  each  page.] 

?'  FOR  THIS  RUN,  THESE  VALUES  ARE:  Men  per  Day  *  ' +LTRIM(STR(rgmn) ) +' ;  Standard  Deviation 

Multiples  =  ' +LTRIM(STR(rgsd, 10, 2) )+' ;  Code  »  ' +oodeSrgcode 
? 

?[  OUTPUT:  Output  from  Report  G  includes  the  following  items  listed  from  each  schedule 

Activity  meeting  the] 

?[  above  criteria,  in  this  order:  Schedule  Activity  ID  number,  Title  (in  text).  Early 

Start  date.  Early  Finish] 

?[  date.  Late  Start  dace,  Late  Finish  date.  Float  (in  days),  Original  Duration  of  Activity 

(in  days) ,  Remaining] 

?(  Duration  of  Activity  (in  days,  and  at  the  time  the  Schedule  was  last  calculated  in 

Primevera) ,  and  Percent] 

?[  Completed  of  Activity.  Also  output  are  the  number  of  Men  Per  Day  required  by  that 

Activity,  and  a  number] 

?[  indicating  the  relative  difference  from  the  group  Mean  of  the  Men  Per  Day  value  of  that 

Activity. ] 

? 

?[  At  the  end  of  Report  G,  the  number  of  matching  Schedule  Activities  found  is  listed.] 

CASE  reportch='H'  it 

SET  COLOR  TO  textracol 

@24,4  SAY  'REPORT  H:  Resource  Loading  Analysis;  Cost  Variance' 

SET  COLOR  TO  fioutputcol 

7SPACE (15)+' RESOURCE  LOADING  ANALYSIS:  COST  VARIANCE' 
o 

?sintro_off 

?(  ALGORITHM:  Report  H  selects  and  prints  those  Activities  requiring  more  than  (by 

default)  2,000.00  Dollars  Per  Day,  and] 

?[  calculates  and  prints  the  Number  in  the  Group,  the  Mean  and  Standard  Deviation  for  the 

Dollars  Per  Day  for  groups  of] 

?[  Activities  in  the  same  (by  default)  CSI  Standard  Code  group.  It  identifies  those 

Activities  for  which  the  Dollars  Per] 

?[  Day  is  greater  than  (by  default)  1.00  Standard  Deviations  above  OR  below  the  group  Mean, 

and  lists  the  number  of] 

?[  multiples  of  the  Dollars  Per  Day  value,  relative  to  the  group  Mean.  (Activities  with 

"Pet"  =  300%  are  screened  out.)] 

? 

?[  USER-MODIFIABLE  ITEMS:  Initial  Schedule  filename.  Also,  the  user  can  change  the  value 

of  the  number  of] 

?(  Dollars  Per  Day  per  Activity  above  which  to  search  ($2000  by  default),  the  threshold 

number  of  Standard  Deviations] 

?[  1.00  by  default)  above  or  below  the  group  mean  by  which  to  flag  particular  Activities, 

and  the  Activity  Code  or] 

Activity  ID  Code  (the  STND  Code  by  default)  used  to  group  Activities.  All  of  these 
usor-defined  items  are] 

?[  listed  on  this  title  page;  in  addition,  the  Activity  Code  or  Activity  ID  Code  and  the 

threshold  number  of] 

?[  Standard  Deviations  are  included  in  the  header  of  each  page.] 

?'  FOR  THIS  RUN,  THESE  VALUES  ARE:  Dollars  Per  Day  =  '+LTRIM(STR(rhdl) )+'  Standard 
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Deviation  Multiples  =  ' +LTRIM (STR (rhsd, 10,2))+';  code  =  ' +codeirhcode 
■> 

?[  OUTPUT:  Output  from  Report  H  Includes  the  following  items  listed  from  each  Schedule 

Activity  meeting  the] 

?[  above  criteria,  in  this  order:  Schedule  Activity  ID  number.  Title  (in  text).  Early 

Start  date.  Early  Finish] 

?[  date,  Late  Start  date,  Late  Finish  date.  Float  (in  days),  Original  Duration  of  Activity 

(in  days) ,  Remaining] 

?[  Duration  of  Activity  (in  days,  and  at  the  time  the  Schedule  was  last  calculated  in 

Primevera) ,  and  Percent] 

?[  Completed  of  Activity.  Also  output  are  the  number  of  Dollars  Per  Day  required  by  that 

Activity,  and  a  number] 

?(  indicating  the  relative  difference  from  the  group  Mean  of  the  Dollars  Per  Day  value  of 

that  Activity.] 

?(  At  the  end  of  Report  H,  tha  number  of  matching  Schedule  Activities  found  is  listed.] 

CASE  reportch='I'  it 

SET  COLOR  TO  textracol 

324,4  SAY  'REPORT  I:  Resource  Loading  Analysis;  Time  Variance' 

SET  COLOR  TO  Soutputcol 

? SPACE  (14)  +  '  W<?0URCE  LOADING  ANALYSIS:  TIME  VARIANCE' 

■> 

?tin:ro_off 

?[  ALGORITHM:  Report  I  selects  and  prints  those  Activities  requiring  more  than  (by 

default)  40  Working  Days,  and] 

?  [  calculates  and  prints  the  Number  in  the  Group,  the  Mean  and  Standard  Deviation  for  the 

Working  Days  for  groups  of] 

?[  Activities  in  the  same  (by  default)  CSI  Standard  Code  group.  It  identifies  those 

Activities  for  which  the  Working] 

?(  Days  is  greater  than  (by  default)  1.00  Standard  Deviations  above  OR  below  the  group 

Mean,  and  lists  the  number  of] 

?(  multiples  of  the  Working  Days  value,  relative  to  the  group  Mean.  (Activities  with  "Pet" 

=  100%  are  screened  out.)] 

•> 

?(  USER-MODIFIABLE  ITEMS:  Initial  Schedule  filename.  Also,  the  user  can  change  the  value 

of  the  number  of] 

?(  Working  Days  per  Activity  above  which  to  search  (40  Days  by  default),  the  threshold 

number  of  Standard  Deviations] 

?(  1.00  by  default)  above  or  below  the  group  mean  by  which  to  flag  particular  Activities, 

and  the  Activity  Code  or] 

?[  Activity  ID  Code  (the  STND  Code  by  default)  used  to  group  Activities.  All  of  these 

user-defined  items  are] 

?(  listed  on  this  title  page;  4n  addition,  the  Activity  Code  or  Activity  ID  Code  and  the 

threshold  number  of] 

?(  Standard  Deviations  are  included  in  the  header  of  each  page.] 

?'  FOR  THIS  RUN,  THESE  VALUES  ARE:  Working  Days  =  '+LTRIM(STR(ridy) )+'  Standard 

Deviation  Multiples  =  ' +LTRIM (STR (risd, 10, 2) ) +' ;  Code  =  ' +codeSricode 
•> 

?(  OUTPUT:  Output  from  Report  I  includes  the  following  items  listed  from  each  Schedule 

Activity  meeting  the] 

?[  above  criteria,  in  this  order:  Schedule  Activity  ID  number,  Title  (in  text),  Early 
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Start  date,  Early  FiniahJ 

?[  date,  Late  Start  date,  Late  Finish  date,  Float  (in  dayu) ,  Original  Duration  of  Activity 

(in  days) ,  Remaining] 

?[  Duration  of  Activity  (in  days,  and  at  the  time  the  Schedule  was  last  calculated  in 

Prlmevera) ,  and  Percent] 

?[  Completed  of  Activity.  Also  output  are  the  number  of  Working  Days  required  by  that 

Activity,  and  a  number] 

?[  indicating  the  relative  difference  from  the  group  Mean  of  the  Working  Days  value  of  that 

Activity. ] 
o 

?[  At  the  end  of  Report  I,  the  number  of  matching  Schedule  Activities  found  is  listed.) 

CASE  reportch='J'  ££  Logical  Analysis  Module' 

SET  COLOR  TO  Sextracol 

@24,4  SAY  'REPORT  J:  Logical  Analysis' 

SET  COLOR  TO  ioutputcol 
7SPACE (27)+' LOGICAL  ANALYSIS' 

? 

?£intro_off 

?[  ALGORITHM:  Report  J  identifies  and  prints  the  construction  and  other  Activities  on 

each  floor  which  do  not  follow] 

?[  a  normal  construction  progression  sequence  in  their  "Early  Start  Dates".  This  sequence 

is  defined  by  examining  (by] 

?[  default)  the  "Sort  Details"  Code  and  "Early  Start  Date"  for  each  Activity  in  the 

Schedule  file.  The  normal  progressions] 

?[  are  explained  in  detail  on  the  following  page  -  Activities  deviating  from  this 

progression  are  identified  and  printed.] 

? [  In  addition,  any  drywall  Activities  (identified  as  such  by  their  Sort  Details  Codes) 

which  began  before  roofing] 

?[  Activities  are  started,  are  identified  and  printed.] 

■> 

?[  USER-MODIFIABLE  ITEMS:  Initial  Schedule  filename.] 

•> 

?'  FOR  THIS  RUN,  THIS  VALUE  IS:  Code  Used  <=  '+rjcode+'  :  ' +code£r jcodo 

?[  OUTPUT:  Output  from  Report  J  includes  the  following  items  listed  from  each  matching 

Schedule  Activity,  in] 

?[  this  order:  Schedule  Activity  ID  number.  Title  (in  text).  Early  Start  date.  Early 

Finish  date,  Late  Start] 

?[  date.  Late  Finish  date,  Float  (in  days).  Original  Duration  of  Activity  (in  days), 

Remaining  Duration  of] 

?[  Activity  (in  days,  and  at  the  time  the  Schedule  was  last  calculated  in  Prlmevera), 

Percent  Completed  of] 

?[  of  Activity,  and  the  Sort  Detail  Code  and  Definition.  Also,  the  Sort  Detail  Code  of 

the  Activity  on  that  floor] 

?[  which  immediately  prior  (according  to  the  "Early  Start  Date")  to  this  Activity,  is 

printed  as  an  indicator  of] 

?[  how  much  "out  of  sequence"  this  Activity  is.] 

CASE  reportch='K'  ££  Activities  to  Crash  Module 

SET  COLOR  TO  textracol 

@24,4  SAY  'REPORT  K:  Activities  to  Crash' 
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SET  COLOR  TO  toutputcol 
7SPACE (24) +' ACTIVITIES  TO  CRASH' 


?tintro_off 

?[  ALGORITHM:  Report  K  prints  the  four  most  ciritical  paths  in  the  schedule  database. 

It  does  this  by  ] 

?[  sorting  schedule  information  by  total  float  and  finish  date  and  then  searching  for  the 

four  most] 

?[  critical  paths.  Report  X  also  analyzes  the  Man  Power  Loading  for  Critical  Path 

Activities . ] 

?[  The  report  lists  those  activities  whose  Man  Power  Loading  is  greater  than  a  user 

specified  amount.] 

?[  Activities  with  durations  greater  than  a  user  specified  amount  (default  =  20)  are  also 

listed. ] 

?[  The  final  section  of  report  K  identifies  activities  with  relation  Durations  in  excess 

of  a  user] 

?[  specified  percentage  (default  =  20%).] 


7 

?(  USER-MODIFIABLE  ITEMS:  Man  Power  Loading  Value,  Duration  Value,  and  Duration  Relation 

Percentage.  ] 

9 


?(  OUTPUT:  Output  from  Report  K  includes  the  following  for  each  critical  path.  ] 

?[  Schedule  Activity  ID  number.  Title,  Early  Start  Date,  Early  Finish  Date,  Late  Start 

Date,  Late  Finish] 

?(  Date,  Actual  Start  Date,  Actual  Finish  Date,  Float,  remaining  Duration,  percent 

complete,  original] 

?[  duration,  lag  and  relation.  Output  for  Manpower  loading,  remaining  duration  and 

relation  ] 

?[  durations  follow  each  critical  path.] 

9 


CASE  reportch='L'  ts  Delays  in  Design  Module 

SET  COLOR  TO  Sextracol 
024,4  SAY  'REPORT  L:  Delays  in  Design' 

SET  COLOR  TO  toutputcol 
7SPACE (22)+' DELAYS  IN  DESIGN' 


?Sintro_off 

?[  ALGORITHM:  Report  L  requires  data  from  two  Schedule  update  files.  It  prints  data  for 

each  Activity  which] 

?(  has  a  (by  default)  "DR"  STND  code,  AND  which  has  a  Float  greater  than  (by  default)  10 

days,  AND  which  has  lost] 

?(  ',uy  default)  10%  of  that  Float  from  one  Schedule  update  to  the  next.] 

9 

?(  USER-MODIFIABLE  ITEMS:  Initial  Schedule  update  filenames.  Also,  the  user  can  change 

the  value  of  the  float] 

?(  (10  days  by  default)  and  the  percentage  difference  (20%  by  default).] 

:  rw  THIS  RUN,  THESE  VALUES  ARE.  Float  —  '  +LXRIM (SIR  (ufioat) )  t'  days;  Percentage  = 

' +LTRIM (STR (upercent*100) ) +'  %' 


?[  OUTPUT:  The  following  items  are  listed  from  each  matching  Schedule  Activity,  in  this 

order:  Schedule] 
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?[  Aotivity  ID  number,  Title  (in  text),  Early  Start  date,  Early  Finish  date,  Late  Start 

date.  Late  Finish] 

?[  date.  Float  (in  days),  Original  Duration  of  Activity  (in  days),  Remaining  Duration  of 

Activity  (in  days, ) 

? [  and  at  the  time  the  Schedule  was  last  calculated  in  Primevera) ,  and  Percent  Completed 

of  Activity.) 

CASE  reportch*'M'  fit  Contractor  Grading  Module' 

SET  COLOR  TO  fiextracol 

024,4  SAY  'REPORT  M:  Contractor  Grading' 

SET  COLOR  TO  toutputcol 
’SPACE (25)+' CONTRACTOR  GRADING' 

j 

?fiintro_off 

?[  ALGORITHM:  Report  M  requires  data  from  1  Schedule  update  file,  and  a  matching  PSSR 

and  Submittal  file.) 

?(  First,  it  calculates  a  "rating"  of  the  percentage  of  PSSR  and  of  Submittal  Activities 

which  correspond  to] 

?[  Schedule  Activities,  the  percentage  of  PSSR  and  of  Submittal  Activities  which  correspond 

to  Schedule  procurement] 

?[  Activities,  the  number  of  non-procurement  Activities  with  durations  exceeding  20  days, 

and  the  number  of] 

?[  correctly  coded  Schedule  Activities  (assuming  that  the  code  definitions  in  the  "NTF" 

Codes  Dictionary  within] 

?[  Primavera  are  themselves  correct.)] 

? 

?[  Also,  it  sums  the  number  of  Schedule  Activities  having  negative  float,  determines  the 

percentage  of] 

?[  Activities  on  the  four  most  critical  paths  which  met  their  "Early  Start  Date",  analyzes 

the  Activities  on  the] 

?(  four  most  critical  paths  in  terms  of  the  time  remaining  and  the  time  expended,  analyzes 

the  percentage  of] 

?[  Activities  which  have  adequate  "Actual  Start  Dates",  analyzes  the  percentage  of 

Activities  having  a  "Percent] 

?[  Complete"  greater  than  0  or  a  "Remaining  Duration"  with  no  "Actual  Start  Date",  and 

analyzes  the  percentage  of] 

?(  Activities  with  "Remaining  Durations"  greater  than  their  "Original  Durations".] 

?(  Note  that  the  user  must  run  "Report  K:  Activities  to  Crash"  before  running  this  Report, 

in  order  to  determine] 

?[  the  four  most  critical  paths  in  the  Schedule  file.] 

? 

?t  USER-MODIFIABLE  ITEMS:  Initial  Schedule  update  filenames.  Also,  the  user  can  change 

all  of  the  grading] 

?C  "threshold"  values,  which  are  used  to  determine  the  "grade"  or  rating  given  to  the 

contractor.  The  user] 

?(  must  input  the  correct  Primavera  Data  Date  in  order  for  one  of  the  subitems  to  work, 

since  the  "Data  Bate"] 

?[  cannot  be  included  in  Primavera  Dbase  export  files.)  The  user  can  choose  whether  to 

output  the  Detailed] 

?[  Report,  the  Summary  Report,  or  both.) 

9 
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?[  OUTPUT:  1)  A  Summary  Report,  which  gives  the  grade  for  each  subitem  in  the  two  overall 

grading  items,  in] 

?[  English-like  text,  and/or  2)  A  Detail  Report,  which  lists  many  data  items  concerning 

the  Activities  matched] 

?[  in  the  Report  M  algorithms  and  summarized  in  the  Summary  Report.] 

CASE  reportch='0'  it  Activity  Slippage 

SET  COLOR  TO  textracol 

024,4  SAY  'REPORT  0:  Activity  Slippage' 

SET  COLOR  TO  toutputcol 
’SPACE (26)+' ACTIVITY  SLIPPAGE' 

9 

?4intro_off 

?(  ALGORITHM:  Report  0  accepts  up  to  five  schedule  files  and  compares  an  activity's  early 

start  date,  duration, ] 

?[  float,  and  productivity  (defined  as  actual  duration/original  duration).  It  there  is 

a  change  from  the  previous] 

?(  schedule  file,  the  activity  is  printed.  If  the  productivity  index  exceeds  1  standard 

deviation,  the  number  of] 

?[  standard  deviations  that  the  productivity  rate  is  over,  is  printed.] 

■> 

?[  USER-MODIFIABLE  ITEMS:  The  user  inputs  up  to  five  schedule  files  which  are  checked 

to  make  sure  that  they] 

?[  are  valid.  The  user  may  also  enter  which  code  to  sort  on.  The  default  is  STND] 

? 

?[  OUTPUT:  The  following  items  are  listed  from  each  matching  Schedule  Activity,  in  this 

order:  Schedule] 

?[  Activity  ID  number,  Title  (in  text),  Early  Start  date.  Early  Finish  date,  Late  Start 

date.  Late  Finish] 

?[  date.  Float  (in  days),  Original  Duration  of  Activity  (in  days).  Remaining  Duration  of 

Activity  (in  days, ] 

?[  and  at  the  time  the  Schedule  was  last  calculated  in  Primevera) ,  and  Percent  Completed 

of  Activity,  the] 

?[  Productivity  Rate,  and,  if  applicable,  the  number  of  standard  deviations  over  the  mean.] 


ENDCASE 

*  Now  print  intro  filenames,  no.  of  Activities  in  each  file,  etc. 

? 

? 

?SPACE  (9)  +'  THIS  REPORT  WAS  RUN  ON  ' +DT0C  (DATE  ()  ) +'  AT  ’+TIME() 

IF  reportch=' A' .OR.reportch='B'  .OR. reportch=' C' . OR. reportch=' D' .OR. reportch='E' .OR.reportch='F' 

SELECT  B 
GO  TOP 
N=0 

DO  WHILE  . NOT. EOF () 

X=TKIM(actlv_ld) 

SKIP 

IF  X=TRIM(activ_id) .AND. .NOT. EOF  () 

N=N+1 

ENDIF 
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ENDDO 

?SPACE(  9)  +  ' YOUR  INITIAL  PSSRFILE(S),  ' +LTRIM(f±lp«*rjpr)+'  AND  '+LTRIM(filpt»r_*c)+'  ,  CONTAIN 
' +LTRIM (STR (RECCOUNT ( ) ) ) +'  ACTIVITY  ID  NUMBER  RECORDS,  OF  WHICH  '+LTRIM (SIR (N) )+' ARE  DUPLICATES. ' 
ENDIF 
SELECT  D 

7SPACE (9) +' YOUR  INITIAL  PROJECT  SCHEDULE  FILE{S),  '+LTRIM(fil«ch*d) 

’SPACE  (9)+' AND  ' +LTRIH  (fil»ucc«») +' ,  CONTAIN  '  +LTRIM  (STR  (RECCOUNT  ()))  +'  ACTIVITY  ID  NUMBER  RECORDS. ' 
IF  reported' E' .OR. r«portch“'F' 

SELECT  E 

?SPACE(9)+'YOUR  INITIAL  SUBMITTAL  FILE,  '  +LTRIM (filiubrrii)  +  ' ,  CONTAINS  ' +LTRIM (STR (RECCOUNT ())) +' 
ACTIVITY  ID  NUMBER  RECORDS.' 

ENDIF 

*?«op 

RETURN 

*:  EOF:  INTRO. PRG 
'•Z 
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********** ************** *************** ****************************** 


Program:  REPA.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/26/89  23:53 

Called  by:  MAINX.PRG 

Calls:  HEADER1.PRG 

Documented  04/27/89  at  10:39 


SNAP!  version  3.12e 


*;  **************************************************** ***************** 

**  REPA.PRG  -  Report  A,  TASK  1:  PSSR/Schedule  Matching 
*  Mark  McReynolds,  1/11/89 
SELECT  D  ti  schedule. dbf 
GO  TOP 

STORE  0  TO  curline, page, smatches,pmatches 
area**'  '  it  AREA  Code 
stnd='  '  it  STND  Code 
header2=.F. 

SET  EXACT  OFF 
DO  WHILE  .NOT.  EOF<) 

SELECT  B 
GO  TOP 

SEEK  SUBSTR (d->act , 1, 9)  it  Substring  must  stay  at  Act, 1,9  to  get  all  matches 
IF  FOUND  () 

IF  curline>maxlinesa 
DO  headerl 


IF  area  <>  SUBSTR (d->act, 1, 1)  .AND.  area  <>  '4' 
area=SUBSTR (d->act  ,1,1) 

DO  headerl 
ENDIF 

IF  stnd  <>  SUBSTR (d->act, 5, 2) 
stnd=SUBSTR (d->act  ,5,2) 


■kit  irk*  kirk  Irk  It  ******  '+sfcnd+' 


'  +TRJM (stndvfisfcnd)  +  '  ★**★*★★★★***★★****1-*# 


curlino=curline+l 


?  SPACE ( 7 ) +d->act+ '  '+d->title+'  '+DT0C (d->es)+'  ’ +DTOC (d->ef ) +'  ' +DTOC (d->ls)  ; 

+  '  ' +DTOC (d~>lf ) +'  ' +STR (d->tf , 7) +'  ' +STR  (d->od,  7) +STR (d-->rd,  6) +; 

STR(d->pct, 6) 
smatches=smatches+l 
curline=curline+l 
IF  curline>raaxlinesa 
DO  headerl 


' +d->title+' 


area=SUBSTR (d->act  ,1,1) 
IF  header2 

?  SPACE (31) +’PSSR 


VENDOR 
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ARRIVE  > 

?  SPACE (31) +' ACTIVITY  ID  DESCRIPTION  (from  PSSR  fil..) 

ON  SITE  REQUIRED' 

?  SPACE  (31)  +  ' -  - 


NAME 


o 

curline=Jcurline+4 

haadar2=.n. 

EHDIF 

start=RECNO() 

N=I 

big«CTOD  (arrivesita) 

DO  WHILE  SUBSTR(d->act,  1,9)  =SUBSTR(activ  id, 1,9) 

IF  CIOD (arrivesita) >big 
big=C70D (arrivesita) 

ENDIF 

N=N+1 

SKIP 

ENDDO 

GOTO  start 

DO  WHILE  3UB3TR (d->act , 1 , 9) *SUBSTR(activ  id, 1,9) 

?  SPACE (31) +activ_id+'  '+dascript+'  ' +vandornama+' 

'  ' +raquired+'  > 

ourlina=curli na+1 
pma  t  ohe  s  =proat cho s+1 
IF  curline>maxlinesa 
DO  headerl 
ENDIF 
SKIP 

ENDDO 


' +arrivesite+; 


curlina=curline+l 
ENDIF 
SELECT  D 
IF  EOF  () 

EXIT 
ENDIF 
SKIP 
ENDDO 
?  eop 


?  Sfooter_on 

?  SPACE  (50)+'***  END  OF  REPORT  A  ***' 

- ~~ 

?  oop 
RETURN 


*:  EOF:  REPA.PRG 
AZ 


68 


**  REPB.PRG  -  Report  B,  TASK  X:  PSSR/Scehdule  'PR'  Code  Matching 
*  Mark  McReynolds,  1/11/89 
SELECT  D  it  schedule. dbf 
GO  TOP 

STORE  0  TO  curline,page, smatches 
area='  '  it  AREA  Code 
stnd='  '  &i  STND  Code 
SET  EXACT  OFF 
DO  WHILE  .NOT.  EOF() 

IF  SUBSTR  (d->act  ,5,2)='  PR' 

SELECT  B 
GO  TOP 

SEEK  SUBSTR (d->act,  1,  9)  it  Subi'-ring  roust  stay  at  Act,  1,9  to  get  all  matches 
IF  .NOT.  FOUND  () 

IF  curlina>maxlinesa 
DO  headerl 
ENDIF 

IF  area  <>  SUBSTR (d->act, 1, 1) 
area=SUBSTR (d->act, 1, 1) 

DO  headerl 
ENDIF 

IF  stnd  <>  SUBSTR (d->act ,5,2) 
stnd=SUBSTR (d->act ,5,2) 

?'  ********************  '+stnd+'  :  ' +TRIM(stndv£stnd)+'  ********************> 

curlina=curline+l 
ENDIF 

?  SPACF (7)+d->act+'  ' +d->title+'  ' +DTOC (d->es) +'  ' +DTOC (d->ef ) +'  '+DTOC (d->ls) 

+'  ' +DTOC (d->lf ) +'  ' +STR (d->tf , 7) +'  ' +STR (d->od, 7) +STR (d->rd, 6) +; 

STR (d->pct , 6) 

•> 


curline=curline+2 
6matches=smatches+l 
IF  curline>maxlinesa 
DO  headerl 
ENDIF 

area=SUBSTR (d->act , 1 , 1 ) 
ENDIF 
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SELECT  D 


ENDIF 
IF  EOF  () 

EXIT 
ENDIF 
SKIP 
ENDDO 
?  aop 
? 

?  £footer_on 

?  SPACE (50)+'***  END  OF  REPORT  B  ***' 

?  SPACE (25)+'***  THERE  WERE  ' +LTRIM(STR (amatches) ) +'  SCHEDULE  ACTIVITY  ID  NUMBERS  WHICH  MATCHED  THE 
SEARCH  CONDITIONS.  ***' 

?  £footer_off 
?  eop 
RETURN 

*:  EOF:  REPB.PRG 
AZ 


70 


********************************************************************* 


*:  Program:  REPC.PRG 

*  ; 

*:  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (o)  1989,  USA-CERL/ASC/RCE 

*:  Last  modified:  04/26/89  23:55 

*  ; 

*:  Called  by:  MAINX.PRG 

*  ; 

*:  Calls:  HEADER1 . PRG 

* ; 

*:  Documented  04/27/89  at  10:39  SNAP!  version  3.12e 

* ;  ********************************************************************* 

**  REPC.PRG  -  Report  C,  TASK  1:  PSSR/Schedule  Date  Comparison  1 
*  Mark  McReynolds,  1/11/89 
SELECT  D  it  schedule. dbf 
GO  TOP 

STORE  0  TO  curline, page, smatches, pmatches 
area^'  '  a  AREA  Code 

stnd='  '  it  STND  Code 

heador2=.n. 

SET  EXACT  OFF 
DO  WHILE  .NOT.  EOF() 

SELECT  B 
GO  TOP 

SEEK  SUBSTR(d->act, 1, 9)  it  Substring  must  stay  at  Act, 1,9  to  get  all  matches 
IF  FOUND  () 

DO  WHILE  SUBSTR(d->act,l, 9)  =SUBSTR  (activjLd,  1, 9) 

IF  CTOD (arrivesite) >d->ea.AND.d->tf<10 
IF  curline>maxlinesa 
DO  headerl 
ENDIF 

IF  area  <>  SUBSTR(d->act, 1, 1) 
area=SUBSTR (d->act ,1,1) 

DO  headerl 
ENDIF 

IF  stnd  <>  SUBSTR (d->act ,5,2) 
stnd=SUBSTR (d->act ,5,2) 

?  '  ********************  '+8tnd+'  :  ' +TRIM(stndvsstnd) +'  ********************' 

curline=curline+l 
ENDIF 

?  SPACE (7) +d->act+'  ' +d->title+'  ' +DT0C (d->es)+'  ' +DTOC (d->ef ) +'  ' +DTOC (d->ls) ; 

+'  ' +DTOC (d->lf) +'  ' +STR (d->tf , 7) +'  ' +STR (d->od, 7) +STR (d->rd, 6) +; 

STR(d->pct, 6) 
smatches=smatches+l 
curline=curline+l 
IF  curline>maxlinesa 
DO  headerl 
ENDIF 

area=SUBSTR (d->act ,1,1) 
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IP  header2 


?  SPACE  (31)+' PSSR 
ARRIVE 

??  '  SCHEDULE  EARLY  START' 

?  SPACE (31) +' ACTIVITY  ID 
OH  SITE  REQUIRED 

??  '  -  PSSR  ARRIVE  ON  SITE' 

?  SPACE  (31)+' - 


DESCRIPTION  (from  PSSR  filaa) 


VENDOR 


NAME 


??  »  _ _ , 

■> 

cu r li naoou r 1 i ne + 4 
header2=.F. 

ENDIF 

start=RECNO() 

N=1 

bigcCTOD  (arrivasite) 

DO  WHILE  SUBSTR(d->act,  1,  9)*SUBSTR(activ  id,  1,9) 

IF  CTOD (arrivaaite) >big 
big=CTOD (arrivesita) 

ENDIF 
N=N+1 
SKIP 
ENDDO 
GOTO  start 

DO  WHILE  SUBSTR (d->aot , 1,9) =SUBSTR (activ_id, 1, 9) 

?  SPACE  (31)  +activ_id+'  '  +daacrlpt+'  ' +vandornama+' 

'  '+raquired+'  ' 

??  CTOD(arrivoaite)-d->es 
IF  N>1.AND. (CTOD (arrlvasita) =blg) 

?  ? '  <- ' 

ENDIF 

curlina»curlina+l 
pmatchea=pmatchas+l 
IF  curllna>maxlinasa 
DO  headerl 
ENDIF 
SKIP 
ENDDO 
o 

curline=curlina+l 
ENDIF 
SKIP 
ENDDO 
ENDIF 
SELECT  D 
IF  EOF  () 

EXIT 
ENDIF 
SKIP 
ENDDO 
?  eop 


' +arrivesite+; 
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? 

?  tfooter_on 

?  SPACE (50)+'***  END  OF  REPORT  C  ***' 

?  '  ***  THERE  WERE  ' +LTRIM (STR (smatches) ) 

??  '  SCHEDULE  ACTIVITY  ID  NUMBERS,  WHICH  MATCHED  ' +LTRIM(STR(pmatches) ) 
? 

?  '  PSSR  ACTIVITY  ID  NUMBERS,  INCLUDING  PSSR  MULTIPLES.  ***' 

?  &£ooter_off 
?  eop 
RETURN 

*:  EOF:  REPC.PRG 
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*********************************************************************** 


*:  Program:  REPD.PRG 

*:  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (c)  1989,  USA-CERL/ASC/RCE 

*:  Last  modified:  04/26/89  23:56 

★  • 

*:  Called  by:  MAINX.PRG 

* : 

*:  Calls:  HEADER1 . PRG 

*; 

*:  Documented  04/27/89  at  10:39  SNAP!  version  3.12e 

A  •  A A A A A A A A A A AAA A A A A A A A AAA A A A A A A A A  A A A A A A A AAA A A A A A AAA A A A A AAA AAA AAA AAA AAAA 

**  REPD.PRG  -  Report  D,  TASK  1:  PSSR/Schedule  Date  Comparison  2 
*  Mark  McReynolds,  1/11/89 
SELECT  D  ££  schedule. dbf 
GO  TOP 

STORE  0  TO  curline,page, smatches,pmatches 
areas'  '  ££  AREA  Code 

stnd='  '  it  STND  Code 

header2=.n. 

SET  EXACT  OFF 
DO  WHILE  .NOT.  EOF() 

SELECT  B 
GO  TOP 

SEEK  SUBSTR (d->act, 1, 9)  it  Substring  must  stay  at  Act, 1,9  to  get  all  matches 
IF  FOUND  () 

DO  WHILE  SUBSTR  (d->act,  1,  9)  =SUBSTR(activ_id,  1,  9) 

IF  CTOD  (arrivesite)  >  (d->es+ (d->tf/5) )  .AND.  d->tf>10 
IF  curline>maxlinesa 
DO  headerl 
ENDIF 


IF  area  <>  SUBSTR (d->act, 1, 1) 
area=SUBSTR(d->act, 1,1) 

DO  headerl 


ENDIF 

IF  stnd  <>  SUBSTR (d->act ,5,2) 
atnd=SUBSTR (d->act  ,5,2) 

?  <  ********************  '+stnd+'  :  ' +TRIM(stndv£stnd)  +  '  ********************' 

curlino=curline+l 
ENDIF 

?  SPACE (7) +d->act+'  '+d->title+'  '+DTOC (d->es)+'  '+DTOC(d->ef)+'  '+DT0C(d->ls) ; 

+  '  '  +DTOC (d->lf)  +'  '+STR(d->tf,  7)+'  '+STR(d->od,  7)+STR(d->rd,  6)+; 

STR{d->pct,  6) 
smatches=smatches+l 
curlinu^curiino+1 
IF  curline>maxlinesa 
DO  headerl 
ENDIF 


area=SUBSTR(d->act, 1,1) 
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IF  haader2 


VENDOR 


?  SPACE (31) +'PSSR 

ARRIVE  SCHEDULE  EARLY  START' 

?  SPACE (31)+' ACTIVITY  ID  DESCRIPTION  (from  PSSR  files) 

ON  SITE  REQUIRED  -  PSSR  ARRIVE  ON  SITE' 

?  SPACE  (31)+' -  - 


curline=curline+4 

hoader2=.F. 

ENDIF 

start=RECNO() 

N=1 

big=CTOD (arrivesite) 

DO  WHILE  SUBSTR (d->act , 1, 9) =SUBSTR (activ_id, 1, 9) 

IF  CTOD (arrivesite) >big 
big=CTOD (arrivesite) 

ENDIF 
N=N+1 
SKIP 
ENDDO 
GOTO  start 

DO  WHILE  SUBSTR (d->act, 1, 9 ) =SUBSTR (activ_id, 1,9) 

?  SPACE (31) +aetiv_id+'  '+descript+'  ' +vendorname+' 

'  '+required+'  ' 

??  CTOD (arrivesite) -d->es 

IF  N>1 . AND .  (CTOD (arrivesite) «big) 

??  '  <-' 

ENDIF 

curline=curline+l 
pmacches=pmatches+l 
IF  curline>maxlinesa 
DO  headerl 
ENDIF 
SKIP 
ENDDO 
? 

curline=curline+l 
ENDIF 
SKIP 
ENDDO 
ENDIF 
SELECT  D 
IF  EOF  () 

EXIT 
ENDIF 
SKIP 
ENDDO 
?  eop 
■> 

?  £footer_on 

?  SPACE (50)+'***  END  OF  REPORT  D  ***' 


NAME 


' +arrivesite+; 
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?  «  ***  THERE  WERE  '+LTRIM(STR(«m*tch**) ) 

??  '  SCHEDULE  ACTIVITY  ID  NUMBERS,  WHICH  MATCHED  ' +LTRIM(STR(pm*tcha«) ) 
??  '  PSSR  ACTIVITY  ID  NUMBERS,  INCLUDING  PSSR  MULTIPLES.  ***' 

?  t footer_off 
?  eop 
RETURN 

*:  EOF:  REPD.PRG 

az 


76 


**  REPE.PRG  -  Report  E,  TASK  X:  PSSR/Schedule/Submittal  Comparison  1 

*  Mark  McReynolda,  1/11/89 

*  SET  STAT  ON 

SELECT  D  St  schedule. dbf 
GO  TOP 

STORE  0  TO  curline, page, smatches, pmatches 
area='  '  St  AREA  Code 
stnd='  '  St  STND  Code 
header2=.n. 

SET  EXACT  OFF 
DO  WHILE  .NOT.  EOF() 

SELECT  B 
GO  TOP 

SEEK  SUBSTR (d->act, 1, 9)  St  Substring  must  stay  at  Act, 1,9  to  get  all  matches 
IF  FOUND  () 

DO  WHILE  SUBSTR (activ_id, 1,9) =SUBSTR (d->act , 1, 9) 

SELECT  E 
GO  TOP 

SEEK  SUBSTR (d->act, 9,1) 

IF  FOUND  () 

SELECT  B 

IF  CTOD  (ce_submit)  <>  e->8ch__subm  .AND.  CTOD  (ce_subm_ap)  <>  e->sch_appr  ; 

■AND.  d->tf<  refloat 
IF  curline>maxlinesa 
DO  headerl 
ENDIF 

IF  area  <>  SUBSTR (d->act, 1, 1) 
area=SUBSTR (d->act  ,1,1) 

DO  headerl 
ENDIF 

IF  stnd  <>  SUBSTR (d->act, 5,2) 
stnd=SUBSTR(d->act,  5,  2) 

?  <  ********************  'j.otr.d+'  :  *+TP.IM<2tr.dv£stnd)+'  ********************* 

curline=curline+l 
ENDIF 

?  SPACE (7) +d->act+'  '+d->titlo+'  ' +DTOC (d->es) +'  '+DTOC(d->ef)  +  '  '  +DTOC (d~>ls) ; 

+  '  ' +DTOC (d->lf) +'  ' +STR (d->tf , 7) +'  ' +STR (d->od, 7) +STR (d->rd, 6) +; 


STR(d->pct,  6) 
amatahea-amatchea+1 
curlina*curlina+l 
IF  curlina>maxlinaaa 
DO  headarl 
ENDIF 

ar«a=»SUBSTR  (d->act  ,1,1) 

IF  haader2 

?  SPACE  (31  )+'PSSR 
ARRIVE 

?  SPACE (31)+' ACTIVITY  ID 
ON  SITE  REQUIRED 

?  SPACE  (31)+' - 


SCHEDULE  EARLY  START' 
DESCRIPTION  (from  PSSR  filaa) 
-  PSSR  ARRIVE  ON  SITE' 


VENDOR 

NAME 


o 

curline=»curlina+4 

header2».F. 

ENDIF 

start=RECNO() 

N=1 

big=CTOD (arrlvaslta) 

DO  WHILE  SUBSTR(d->act,l,9)=SUBSTR(activ_id,l,9) 

IF  CTOD(arriveaita)>bicj 
big»CTOD (arrivaaite) 

ENDIF 
N-N+l 
SKIP 
ENDDO 
GOTO  atart 

DO  WHILE  SUBSTR(d->act,l,  9)*SUBSTR(activ_id,  1,  9) 

?  SPACE (31 )+actlv_id+'  '+da»oript+*  ' +vendorname+'  '+arrivasite+; 

'  '+raquirad+'  ' 

??  CTOD (arrivaaite) -d->as 
IF  N>1. AND. (CTOD (arrivaaite)  -big) 

??  '  <-' 

ENDIF 

curliness  curline+1 
pmatehea=pmatehee+l 
IF  curline>maxlineaa 
DO  headerl 
ENDIF 
SKIP 
IF  EOF  () 

EXIT 

ENDIF 

ENDDO 

? 

curliri«-curiine+l 

ENDIF 

SKIP  (S  In  E 
IF  EOF  () 

EXIT 


78 


ENiuir 
ENDIF 
SELECT  B 
SKIP  it  In  B 
IF  EOF  () 

EXIT 
ENDIF 
ENDDO 
ENDIF 
SELECT  D 
SKIP  ((  In  D 
IF  EOF  () 

EXIT 
ENDIF 
ENDDO 
?  «op 
7 

?  tfootar_on 

?  SPACE (50)+'***  END  OF  REPORT  E  ***' 

7  -  ***  THERE  HERE  ' +LTRIM (STR (smatchas) ) 

??  '  SCHEDULE  ACTIVITY  ID  NUMBERS,  WHICH  MATCHED  ' +LTRIM (STR (pmatches) ) 
??  '  PSSR  ACTIVITY  ID  NUMBERS,  INCLUDING  PSSR  MULTIPLES.  ***' 

?  tfootor_o£f 
?  «op 
RETURN 

*:  EOF:  REPE.PRG 
AZ 
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* . ********************** ********************** ************************* 

* ; 

*:  Program:  REPF.PRG 

*  ; 

*:  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (c)  1989,  USA-CERL/ASC/RCE 

*:  Last  modified:  04/27/89  0:02 

*  ; 

*:  Called  by:  MAINX.PRG 

*  ; 

*:  Calls:  HEADER1 . PRG 

*  ; 

*:  Documented  04/27/89  at  10:39  SNAP!  version  3.12e 

* ;*****»****************************************»****»****»************ 

**  REPF.PRG  -  Report  F,  TASK  1:  PSSR/Schedule/Submittal  Comparison  2 
*  Mark  McReynolds,  1/11/89 
SET  STATUS  ON 

SELECT  D  it  schedule. dbf 
GO  TOP 

STORE  0  TO  curline.page,  smatches,pmatches 
area-'  '  Cfi  AREA  Code 
stnd='  '  it  STND  Code 
header2=.n. 

SET  EXACT  OFF 
DO  WHILE  .NOT.  EOF() 

SELECT  B 
GO  TOP 

SEEK  SUBSTR (d->aot ,1,9)  tt  Substring  must  stay  at  Act, 1,9  to  get  all  matches 
IF  FOUND  () 

DO  WHILE  SUBSTR (activ_id, 1, 9) “SUBSTR (d->act, 1,9) 

SELECT  E 
GO  TOP 

SEEK  SUBSTR (d->act, 9,1) 

IF  FOUND  () 

SELECT  B 

dif fer-ABS (CTOD (ce_submit)  -  d->es) 

IF  (diffor/d->tf)  >  (rfpercent/100) 

IF  curline>maxlinesa 
DO  headerl 
ENDIF 

IF  area  <>  SUBSTR (d->act, 1, 1) 
araa=SUBSTR (d->act ,1,1) 

DO  headerl 
ENDIF 

IF  stnd  <>  SUBSTR (d->act ,5,2) 
stnd=SUBSTR (d->act , 5, 2) 

?  '  ********************  '+atnd+'  :  '+TRIM(atndvtstnd)+'  ********************* 

t.-urllne=»curline+l 
ENDIF 

?  SPACE (7) +d->act+'  '+d->title+'  '+DT0C(d->es)+'  '  +DTOC (d->ef ) +'  '+DTOC(d->ls) ; 

+'  '  +DTOC  (d->lf )  +'  '+STR(d->tf,  7)+'  '+STR(d->od,  7)+STR(d->rd,  6)  +  ; 
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STR{d->pct,  6) 
smatche8=smatchos+l 
curline=curlina+l 
IF  curline>maxlineBa 
DO  headarl 
ENDIF 

area=SUBSTR (d->act ,1,1) 

IF  headar2 

?  SPACE (31) +'PSSR 
ARRIVE 

?  SPACE (31)+' ACTIVITY  ID 
ON  SITE  REQUIRED 

?  SPACE (31)+' - 


o 

cuclinaeourline+4 
headar2=.o 
ENDIF 
r 

nn.  ~BST  .1  _~i'R  l*cciv_id,  1,  9) 

IF  CTOD  (arrivesite, 
big=CTOD (arrlvealte) 

FNDIF 
N=N+1 
SKIP 
ENDDO 
GOTO  start 

DO  WHILE  SUBSTR(d->act,l, 9) =SUBSTR (activ_ld,  1,  9) 

?  SPACE (31) +activ_id+'  '+descript+'  ' +vendorname+'  '+afrivesite+; 

'  '+required+'  ' 

??  CTOD (arrivesite) -d->es 

IF  N>1  .AND.  (CTOD (arrivesite) =big) 

??  '  <-' 

ENDIF 

curline=curline+l 
pmatches=pmatches+l 
IF  curline>maxlinesa 
DO  headarl 
ENDIF 
SKIP 
IF  EOF  () 

EXIT 

ENDIF 

ENDDO 

9 

curline=curline+l 

ENDIF 

SKIP  SS  In  E 
IF  EOF  () 

EXIT 


VENDOR 

SCHEDULE  EARLY  START' 

DESCRIPTION  (from  PSSR  files)  NAME 

-  PSSR  ARRIVE  ON  SITE' 
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ENDIF 
ENDIF 
SELECT  B 
SKIP  «fi  In  B 
IF  EOF  () 

EXIT 
ENDIF 
ENDDO 
ENDIF 
SELECT  D 
SKIP  SS  In  D 
IF  EOF  () 

EXIT 
ENDIF 
ENDDO 
?  eop 
? 

?  «footer_on 

V  sp;  CE(50)+'***  END  OF  REPORT  F  ***' 

?'  ***  THERE  WERE  ' +LTRIH (STR (sm*tcha«) > 

??  '  SCHEDULE  ACTIVITY  ID  NUMBERS,  WHICH  MATCHED  ' +LTRIM (STR (pmatches) ) 
??  '  PSSR  AC1IVITY  ID  NUMBERS,  INCLUDING  PSSR  MULTIPLES.  ***' 

?  £footor_off 
?  eop 
RETURN 

*:  EOF:  REPF.PRG 
A2 
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*******  ******************  **********  ★★**★*******★★***********★*****★*** 


* 

* 

* 


Program:  REPG.PRG 


* 

* 

* 

* 

* 


System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/27/89  0:08 


*:  Called  by:  MAINX.PRG 

*  ; 

*:  Documented  04/27/89  at  10:39  SNAP!  version  3.12e 

*  -  ********************************************************************* 


**  REPG.PRG  -  Report  G,  TASK  2:  Resource  Loading  Analysis,  Manpower  Variance 
*  Mark  McReynolds,  1/11/89 
SELECT  D  ££  schedule. dbf 
SET  EXACT  OFF 

STORE  0  TO  curline, page, matches 

stnd='ZZ'  66  stnd=SUBS  (Act, 5, 2)  66  Get  the  first  STND  Code 

newpago=.y . 

N=0  ££  No.  of  records  to  be  included  in  S.D.  calculations 

men=0  66  No.  of  men/day  required  for  an  Activity 
mean=’0  66  Mean  no.  of  men/day  required  for  an  Activity 
mensq=0  66  Men  squared 
sdev=0  66  Standard  deviation 

DO  WHILE  .NOT.  EOF()  66  For  D 

IF  (mh_day/8)>rgmn  .AND 

SUBSTR(act,  5, 2}  $'01, 02,  03, 04, 05,  06,  07, 08,  09, 10, 11, 12, 13, 14,  IS,  16,  DR, PM, PR,  SC'  ; 

.AND.  SUP3TR (act , 5, 2)  <>  '  '  .AND.  pet  <>  100  66  If  valid  STND  Code  6  not  100%  Complete 

IF  stnd  <>  SUBrTR(act, 5, 2)  .AND.  stnd  O''  66  If  STND  changes 

stnd=SUBSTR (act, 5, 2) 

start=RECNO ()  66  Pre-calculate  S.D. 

STORE  0  TO  H,  mean,  men,  meneq 

DO  WHILE  SUBSTR (act ,5,2) =stnd  .AND.  .NOT.  E0F() 

IF  (mh_day/8) >rgmn 
men=men+ (mh_day/8) 
mensq=mensq+ ( (mh_day/8) **2) 

N=N+1 
ENDIF 
SKIP 
ENDDO 
mean=men/N 
IF  (N  >  1) 

sdev=SQRT ( (mensq- ( (men**2) /N) ) / (N-l) )  66  Calculate  S.D. 

ELSE 

sdev=0. 0 
ENDIF 


GO  start  66  Ready  to  print  records 

newpage=.y . 

ENDIF 
IF  newpage 
?  eop 
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curlin«»0 
paga»paga+l 
?  £headar_on 

?  SPACE (17)+' SCHEDULING  ANALYSIS  SYSTEM:  REPORT  G' 

?  £haadar_mid 

?  SPACE  (3)  +  '  ICS  STANDARD  CODE  «  '+atnd+'  :  ,+atndv£itnd+SPACE(62)+'PAGR  #' +STR(pag«,  6) 


?  £haadar_off 

?t  ACTIVITY 

TITLE 

EARLY] 

??[  EARLY 

LATE 

LATE 

ACTUAL 

ACTUAL 

TOTAL] 

??[  REM  PCT 

MEN 

GREATER] 

?[  ID 

START] 

??[  FINISH 

START 

FINISH 

START 

FINISH 

FLOAT] 

??(  DUR  COM 

PER 

THAN  ]+LTRIM(STR(rgsd,  5,2)) 

?t 

DAY  ST.  DEV.] 

?t -  -  -  - 

•> 

newpage=.F. 

ENDIF 

DO  WHILE  SUBSTR ( act ,5,2) <=stnd  .AND.  .NOT.  EOF() 

IF  (mh_day/8) >rgmn  .AND.  pet  <>  100 

?  '  '  +aet+'  '  +TITLE+'  '+DTOC  («»)+'  '+DTOC(af)+'  '+DTOC(le)+; 

'  '  +DTOC  (If )  +  '  '+DTOC(aa)+'  '  +DTOC  (af)  +STR(tf ,  7)  +; 

'  ' +STR (rd, 6) +STR (pet, 6) +'  ' +STR ( (mh_day/8) , 7,  2) 

IF  (mh_day/8) > (m«an+adcv*rgad) .OR. (mh_day/8)  < (mean-adev*rgad) 

??  STR(((inh_day/8)  -w  i)/«d«v,9,2) 

ENDIF 

matchea>=matchea+l 

curllne=curline+l 

ENDIF 

IF  curline>maxlineaa 
newpage=.T. 

EXIT 

ENDIF 

SKIP 

ENDDO 

IF  SUBSTR (act , 5,2)  <>  stnd 
? 

?  SPACE (10) +'+++++  For  ' +atnd+'  :  ' +TRIM (atndvfistnd) +'  STATISTICS'; 

+  '  ARE  :  NUMBER  IN  GROUP  =■  '+LTRIM  (SIR  (N) )  +'  MEAN  =  '; 

+LTRIM(STR(  (men/N) ,  8,2) )+'  STANDARD  DEVIATION  =  '  +LTRIM(STR(adev, 8,2))  +  '  +++++' 

ENDIF 
LOOP 
ENDIF 
SKIP 
ENDDO 
?  eop 
? 

? 

?  £footer_on 

?  SPACE (50) +' ***  END  OF  REPORT  G  ***' 
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?  SPACE (20)  +  '***  THERE  WERE  ’ +LTRIM (STR (matches) )  + '  ACTIVITY  ID  NUMBERS  WHICH  MATCHED  THESE  SEARCH 
CRITERIA.  ***' 

?  4footer_off 
?  eop 
RETURN 

*:  EOF:  REPG.PRG 
AZ 
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*.********************************************************************* 

*  ; 

*:  Program:  REPH.PRG 

*; 

*:  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (c)  1989,  USA-CERL/ASC/RCE 

*:  Last  modified:  04/27/89  1:38 

* ; 

*:  Called  by:  MAINX.PRG 

*; 

*:  Documented  04/27/89  at  10:39  SNAP!  version  3.12e 

★  j  **  ★  *  ★  *  **  -k  *  *  ★  *  it  irk  irk  irk  it  ******  **  *  **  *  **  *  *  irk  **  irk  *  *  *  *******  *  *  **  *  *  *  ** 

**  REPH.PRG  -  Report  H,  TASK  2:  Resource  Loading  Analysis,  Funding  Variance 

*  Mark  McReynolds,  1/11/89 
SELECT  D  it  schedule. dbf 
SET  EXACT  OFF 

STORE  0  TO  curline,  page,  matches 

stnd='ZZ'  fifi  stnd«SUBS (Act, 5,2)  it  Get  the  first  STND  Code 
newpage=.y . 

N=0  it  No.  of  records  to  be  included  in  S.D.  calculations 
dol=0  it  No.  of  dollars/day  required  for  an  Activity 
mean=0  it  Mean  no.  of  dollars/day  required  for  an  Activity 
dolsq=0  it  Dollars  squared 
sdev=0  it  Standard  deviation 
DO  WHILE  .NOT.  EOF()  it  For  D 

IF  dol_day>rhdl  .AND 

SUBSTR(act,  5,  2)  $'01,  02,  03,  04,  05,  06,  07,  08,  09, 10, 11, 12, 13, 14, 15, 16,  DR,  PM,  PR,  SC'; 

.AND.  SUBSTR(act, 5, 2)  <>  '  '  .AND.  pet  <>  100  it  If  valid  STND  Code  i  not  100%  Conplete 
IF  8tnd  <>  SU3STR ( act , 5 , 2 )  .AND.  stnd  O''  it  If  STND  change# 
stnd=SUBSTR(act, 5,  2) 

start=RECNO ()  a  Pre-calculate  S.D. 

STORE  0  TO  N,  mean,  dol,  dolaq 

DO  WHILE  SUBSTR (act, 5, 2) -stnd  .AND.  .NOT.  EOF{) 

IF  dol_day>rhdl 
dol=dol+dol_day 
dolsq=dolsq+ (dol_day**2) 

N=N+1 
ENDIF 
SKIP 
ENDDO 
mean=dol/N 
IF  (N  >  1) 

sdov=SQRT ( (dolsq- ( (dol**2) /N) ) / (N-l) )  it  Calculate  S.D. 

ELSE 

sdev=0 . 0 
ENDIF 

GO  start  it  Ready  to  print  records 

newpage=.y . 

ENDIF 
IF  newpage 
?  eop 
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curllne“0 
paga=paga+l 
?  £heador_on 

?  SPACE (17)+' SCHEDULING  ANALYSIS  SYSTEM:  REPORT  H' 

?  Sheader_mid 

?  SPACE (3) +' ICS  STANDARD  CODE  =  '+stnd+'  :  ' +stndvCstnd+SPACE (62) +' PAGE  #'+STR(page,  6) 


?  , 

£header_off 

?c 

ACTIVITY 

TITLE 

EARLY 

EARLY 

LATE 

LATE 

ACTUAL 

ACTUAL 

TOTAL 

REM  PCT 

$ 

GREATER] 

?[ 

ID 

START 

FINISH 

START 

FINISH 

START 

FINISH 

FLOAT  DUR 

COM  PER 

THAN 

] +LTRIM (STR (rhsd, 5,2) 

) 

?[ 

NUMBER 

DATE 

DATE 

DATE 

DATE 

DATE 

DATE 

DAY 

ST.  DEV.) 

?[ -  -  - 

■> 


newpage=.F. 

ENDIF 

DO  WHILE  SUBSTR (act, 5, 2) =stnd  .AND.  .NOT.  EOF() 

IF  dol_day  >  rhdl  .AND.  pet  <>  100 

?  '  '  +act+'  '  +TITLE+'  '+DTOC(es)+'  '+DTOC(ef)+'  '+DTOC(ls)+; 

'  ' +DTOC (If )  +'  ' +DTOC (as) +'  ' +DTOC (af ) +STR (tf , 7) +; 

'  ' +STR(rd, 6) +STR (pet, 6) +'  ' +STR(dol_day, 9, 2) 

IF  dol_day> (mean+sdev*rhsd) .OR. dol_day< (mean-sdev*rhsd) 

??  STR( (dol_day-mean) /sdev,  9,  2) 

ENDIF 

matche8=matches+l 

curlina=curline+l 

ENDIF 


IF  curline>maxlinesa 
newpage=. T. 

EXIT 

ENDIF 

SKIP 

ENDDO 

IF  SUBSTR (act, 5,2)  <>  stnd 


?  SPACE (10) +'+++++  For  '+stnd+'  :  ' +TRIM (stndvSstnd) +'  STATISTICS'; 

+'  ARE  :  NUMBER  IN  GROUP  =  '+LTRIM (STR (N) ) +'  MEAN  =$'; 

+LTRIM (STR ( (dol/N) ,8,2))+'  STANDARD  DEVIATION  =  ' +LTRIM (STR (sdev, 8, 2) ) +'  +++++' 

ENDIF 
LOOP 
ENDIF 
SKIP 
ENDDO 
?  eop 


?  &£ooter_on 

?  SPACE (50) +' ***  END  OF  REPORT  H  ***' 

?  SPACE (20)  +  ' ***  THERE  WERE  ' +LTRIM (STR (matches  )  +  '  ACTIVITY  ID  NUMBERS  WHICH  MATCHED  THESE  SEARCH 
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CRITERIA.  ***' 

?  «footar_off 
?  eop 
RETURN 

*:  EOF:  REPH.PRG 
AZ 
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********************************************************************* 


Program:  REPI.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/27/89  1:39 

Called  by:  MAINX.PRG 

Documented  04/27/89  at  10:39 


SNAP!  version  3.12e 


*.********************************************************************* 

**  REPI.PRG  -  Report  I,  TASK  2:  Resource  Loading  Analysis,  Time  Variance 
*  Mark  McReynolds,  1/11/89 
SELECT  D  ££  schedule. dbf 
SET  EXACT  OFF 

STORE  0  TO  curline, page, matches 

stnd='ZZ'  ££  stnd=SUBS (Act, 5, 2)  ££  Get  the  first  STND  Code 

newpage=.T. 

N=0  it  No.  of  records  to  be  included  in  S.D.  calculations 
DAY=0  ££  No.  of  days  required  for  an  Activity 
mean=0  ££  Mean  no.  of  days  required  for  an  Activity 
daysq=0  ££  Days  squared 
sdev=0  ££  Standard  deviation 
DO  WHILE  .NOT.  EOF()  ££  For  D 

IF  (od) >ridy  -AND.  SUBSTR (act,  5, 2) $' 01,  02,  03,  04,  05,  06,  07,  08, 09, 10, 11, 12, 13, 14, 15, 16, DR, PM, PR, SC' 
.AND.  SUBSTR (act, S, 2)  <>  '  '  .AND.  pet  <>  100  ££  If  Valid  STND  Code  £  not  100%  Complete 

IF  stnd  <>  SUBSTR (act, 5,2)  .AND.  stnd  O''  ££  If  STND  changes 

stnd=SC  i’R(act,  5,  2) 

atart=RKCNO()  ££  Pre-calculate  S.D. 

STORE  0  TO  N,  mean,  DAY,  daysq 

DO  WHILE  SUBSTR (act, 5, 2) =stnd  .AND.  .NOT.  E0F{) 

IF  od  >  ridy  .AND.  pet  <>  100 
DAY=DAY+od 
daysq=daysq+ (od**2) 


££  Pre-calculate  S.D. 


mean=DAY/N 
IF  (N  >  1) 

sdev=SQRT ( (daysq- ( (DAY**2) /N) ) / (N-l) )  ££  Calculate  S.D. 


sdev=0. 0 


GO  start 


nowoaae=  y 


IF  newpage 


££  Ready  to  print  records 


curline=0 
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paga“paga+l 
?  Shaadar_on 

?  SPACE (17)+' SCHEDULING  ANALYSIS  SYSTEM:  REPORT  I' 

?  «ht.ader_mid 

?  '  ICS  STANDARD  CODE  =  '+atnd+'  :  '+atndvfiatnd+SPACE(62)+'PAGE  #'+STR(paga,  6) 

?  theadar_off 

?[  ACTIVITY  TITLE  ] 

?? [EARLY  EARLY  LATE  LATE  ACTUAL  ACTUAL  ) 

?? [TOTAL  REM  PCI  DAYS  GREATER] 

?[  ID  ) 

?? [START  FINISH  START  FINISH  START  FINISH  ) 

?? [FLOAT  DUR  COM  PER  THAN  ] +LTRIM (STR (rlad, 5, 2) ) 

?[  NUMBER  DATE  DATE 

DATE  DATE  DATE  DATE  ACT.  ST.  DEV.] 

n - - - - -  - 

? 

newpage=.F. 

ENDIF 

DO  WHILE  SUBSTR ( act , 5 , 2 ) =atnd  .AND.  .NOT.  EOF() 

IF  od  >  ridy  .AND.  pet  <>  100 

?  '  '  +act+'  '+IITLE+'  '+DTOC  (•«)+'  '  +DTOC  (of )  +'  '+DTOC(la)+; 

'  '  +DTOC  (If)  +  '  '  +DTOC  (««)+'  '+DTOC(af)+STR(tf,  7)+; 

'  '  +STR (rd,  6)  +STR(pct,  6)  +  '  '+STR(od,  6) 

IF  od>(mean+adav*riad) .OR. od< (roaan-adav*riad) 

??  STR ( (od-maan) /adav,  9, 2) 

ENDIF 

matcha8=matchea+l 

curlina»curlina+l 

ENDIF 

IF  curlina>maxllnoaa 
nowpage* . T . 

EXIT 

ENDIF 

SKIP 

ENDDO 

IF  SUBSTR (act, 5, 2)  <>  atnd 
? 

?  SPACE  (10) +'+++++  For  ' +atnd+'  :  '+TRIM(atndvtatnd)+'  STATISTICS'; 

+  '  ARE  :  NUMBER  IN  GROUP  •*  ' +LTRIM  (STR  (N) ) +'  MEAN  »  '; 

+LTRIM (STR( (DAY/N) ,8,2))+'  STANDARD  DEVIATION  -  ' +LTRIM  (STR  (adav,  8, 2) ) +'  +++++' 

ENDIF 
LOOP 
ENDIF 
SKIP 
ENDDO 
?  eop 
? 

■> 

?  sfooter_on 

?  SPACE (50) +' ***  END  OF  REPORT  I  ***' 

?  SPACE (20) +' ***  THERE  WERE  ' +LTRIM (STR(matchea) )+'  ACTIVITY  ID  NUMBERS  WHICH  MATCHED  THESE  SEARCH 
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CRITERIA.  ***' 

?  tfoot«r_off 
?  «op 
RETURN 

*:  EOF:  REPI.PRG 
AZ 
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* • ********************************************************************* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


Program:  REPJ.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  OSA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Laat  modified:  04/27/89  6:20 

Called  by:  MAINX.PRG 

Cilia:  HEADER3 . PRG 
:  HEADER4.PRG 

Index* a :  SCHD_SEQ.NDX 
:  SCHD  SRT.NDX 


* 


* 


Documented  04/27/89  at  10:39 


SNAP!  veraion  3.12* 


*■ ********************************************************************* 


**  REPJ.PRG  -  TASK  2,  Report  J:  Logical  Analyaia  Modul*  (check*  sequence  of 

*  construction  proceaaes)  Mark  McReynolda  2/22/89 

page“0 

SELECT  D  SC  schedule. dbf 
GO  TOP 

SET  DATE  ANSI 

IF  rjcode='l'  SC  STND  Code  -  No  need  to  REPLace  Baa  Code 

INDEX  ON  SUBSTR(act, 2, 1)+SUBSTR (act, S, 2) +DTOC (ea)  TO  achd_aeq 
ENDIF 

IF  rjcode='2'  .OR.  rjcode«'3'  .OR.  rjcode«'4'  St  SORT  Code  -  Need  to  REPLace  Eaa  Code 
*  For  now,  use  SORT  Code  for  all  theae  choices 

sortstring=' CE, SS, CC, CF, PR, CW, PB, PD, PF, PG, PI, PS , PW, AD, FA, EF, EW, EE, MT, FF, FP ' 

DO  WHILE  .NOT.  EOF() 

DO  CASE 
CASE  SORT—' CE' 

REPL  esa  WITH  'A' 

CASE  SORT='SS' 

REPL  esa  WITH  'B' 

CASE  SORT='CE' 

REPL  eaa  WITH  'C' 

CASE  SGRT='CC' 

REPL  esa  WITH  'D' 

CASE  SORT='CF' 

Ri-L  esa  WITH  'E' 

CASE  SORT='PR' 

REPL  esa  WITH  'F' 

CASE  SORT*' CW' 

REPL  esa  WITH  'G' 

CASE  SORT*' PB' 

REPL  esa  WITH  'H' 

CASE  SORT* ' PD ' 

REPL  esa  WITH  'I' 

CASE  SORT*' PF' 


92 


REPL  osa  WITH  'J' 

CASE  SORT='PG' 

REPL  esa  WITH  'K' 

CASE  SORT='PI' 

REPL  esa  WITH  ' L' 

CASE  SORT='PS' 

REPL  osa  WITH  'M' 

CASE  SORT—' PW' 

REPL  esa  WITH  'N' 

CASE  SORT='AD' 

REPL  osa  WITH  'O' 

CASE  SORT='FA' 

REPL  osa  WITH  'P' 

CASE  SORT='EF' 

REPL  osa  WITH  ' Q' 

CASE  SORT='EW' 

REPL  esa  WITH  'R' 

CASE  SORT='EE' 

REPL  osa  WITH  'S' 

CASE  SORT='MT' 

REPL  osa  WITH  'T' 

CASE  SORT“ ' FF ' 

REPL  osa  WITH  'U' 

CASE  SORT—' FP' 

REPL  esa  WITH  'V' 

OTHERWISE 

REPL  osa  WITH  '  ' 

ENDCASE 

SKIP 

ENDDO 

INDEX  ON  SUBSTR (act, 2, 1) +DTOC (os) +esa  TO  schd_seq 
GO  TOP 

SET  DATE  AMERICAN 
ENDIF 
?  eop 

page=page+l 
??  «intro_on 

?  SPACE  (17)+' PROJECT  MANAGEMENT  TOOLS:  REPORT  '+reportch 
??  Sintro_off 
? 

9 

? 

?[  The  SORT  Codes  choice  assumes  the  following  sequence  of  construction  Activity 

progress : ) 

?[  START  — >  CE  :  Earthwork;  SS  :  Structural  Steel;  CC  :  Concrete;  CF  : 

Concrete  Floors;  RV  :  Rough-In; ) 

?[  WV  :  Dampproofing;  PB  :  Piping;  PD  :  Subdrains;  PG  :  Gas  Piping;  PI  : 

Pipe  Insulation;  PS  :  SowerJ 

?[  Piping;  PW  :  Water  Piping;  AD  :  Drywall;  FA  :  Finish  Architectural;  EF 

:  Electrical  Fixtures;) 

?(  EW  :  Wire  &  Terminals;  EE  :  Electrical  Equipment;  MT  :  Mechanical 

Equipment;  FF  :  Carpet  £  Linoleum; ) 
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PV  :  Paint  £  Wallpaper  — >  FINISH] 


H 
? 
j 

?[  Tha  SIND  Codaa  choioa  aaaumaa  tha  following  aaquenca  of  oonatruction  Activity 

progresa: ] 

?[  START  — >  PR  :  Procuramant;  SC  :  Subcontract  Award;  DR  :  Drawinga;  PH 

:  Prap  Maatinga; ] 

?t  02  :  Sita  Work;  01  ;  Canaral;  03  :  Concrata;  05  ;  Natal;  04  ;  Maaonry; 

06  :  Wood  and  Plaatica; ] 

?[  07  :  Moiature-Thamal  Control;  08  :  Doora,  Window#  and  Glaas;  09  :  Finiahes; 

10  :  Specialties;] 

?[  12  :  Furniahinga;  13  :  Spacial  Conatruction;  14  :  Cor.vaying  System#;  15 

:  Mechanical; ] 

?[  16  :  Electrical  -->  FINISH] 

areasSUBSTR(act,l,l)  ££  Firat,  find  tha  firat  "AREA"  coda  in  tha  Schadula 
IF  area-'  ' 

7  header_on 

7  '  THERE  ARE  NO  ACTIVITIES  FOUND  IN  SCHEDULE  FILE  '+£filsched 
7  header_off 
ENDIF 

STORE  0  TO  curline,  page,  matchaa 
SET  EXACT  OFF 

?eop 

F*'U'  ££  Currant  floor  of  building 

DO  WHILE  .NOT.  E0F()  .AND.  VAL(F)  <  5 
F=LTRIM(F) 

SEEK  F  ££  Find  aach  auccasaiva  floor 
IF  FOUND  () 

DO  haader3 
sfcart£f=RECN0() 

LAST*='  ' 

DO  WHILE  SUBSTR(act,2,l)=F 
IF  eaa  <>  '  ' 

LAST=eaa 

lastsort»SORT 

ENDIF 

SKIP 

IF  esa  <>  '  '  .AND.  LAST  >  aaa 
y=' sr ' +RTRIM (SORT) 
z='  sr'  fRTRIM(SUBSTR(lastaort,  1,2) ) 

IF  TYPE  (z)  *  'U' 

zz  -  "**  Bad  Code  **" 
z  =  "zz" 

ENDIF 

7  '  '+act+'  '+TITLE+'  '+DTOC(es)+'  '+DTOC(ef); 

+'  '  +DTOC {!*)+'  '  +DTOC (If)  +'  '+STR(tf,  7}+STE(cd,  7)+3tR(rd,  7)  ; 

+STR(pct,  6)+'  '  +RTRIM  (SORT)  +'  :  '+£y  ££  +STR(  (d_£xx-es) ,  7) 

?  SPACE (12) +’Out-of-aequenca  becauaa  it  haa  an  "Early  Start  Date"  later  than  that'; 

+'  of  an  Activity  on  this  floor  with  SORT  code  ' +RTRIK(lastsort) +'  :  '+£z 
mat  che  s^niat  che  a+1 
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curline=curlino+2 

ENDIF 

IF  curlino>maxlines j 
DO  header3 
ENDIF 
ENDDO 
ENDIF 
F=VAL(F) 

F=F+1 

F=STR(F) 

ENDDO 
?  eop 

*  Roofing/Drywall  Summary 
matches 2=0 
curline=0 
GO  TOP 

SEEK  '4'  ££  Look  for  earliest  roof  work  data 

latedate=es 

DO  WHILE  SUBSTR (act , 2, 1) =' 4' 

SKIP 

IF  es>latedate 
latedate=eo 
ENDIF 
ENDDO 
GO  TOP 

INDEX  ON  SORT  TO  schd_srt 

SEEK  'AD' 

dobeader4=.T. 

DO  WHILE  SORT='AD'  .AND.  .NOT.  EOF{) 

IF  es<l.atedate 
IF  doheader4 
DO  header4 
doheader4=.F. 

ENDIF 

y=' sr' +RTRIM (SORT) 

?  '  '  +act+'  ’  +TITLE+'  '+esa+'  '+DTOC(es)+'  '+DTOC(ef); 

+  '  '  +DTOC  (Is)  +  '  '  +DTOC  (If )  +'  '  +STR  (t f ,  70+STR  (od,  7)  ■*.  STR  (rd, 7) 

+STR(pct, 6)+'  ' +RTRIM (SORT) +'  :  '+£y 

matches2=matches2+l 
curline=curline+2 
IF  curline>maxlines j 
doheader4=. T. 

ENDIF 

ENDIF 

SKIP 

ENDDO 

IF  matches2=0 
page=page+l 
??  £header_on 

?  SPACE (17)+' PROJECT  MANAGEMENT  TOOLS:  REPORT  ' +reportch 


?  SPACE  (64) +  ' PAGE  #'+STR(paga,  6) 

■> 

?  SPACE (30)+' NO  DRYWALL  ACTIVITIES  RAVE  "EARLY  START  DATES"  EARLIER  THAN  THAT  OF  THE  EARLIEST 
ROOFING  ACTIVITY.' 

?  th«»dar_off 
ENDIF 
?  aop 


?  4foot*r_on 

?  SPACE (45)+'***  END  OF  REPORT  J  ***' 

?  SPACE (30) +'****»  THERE  WERE  ' +LTRIM (STR (match**) ) +'  OUT-OF-SEQUENCE  ACTIVITIES.  *****' 

?  Sfoot«r_o£f 

RETURN 

*:  EOF:  REPJ.PRG 
AZ 
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a******************************************** a*********************** 


Program:  REPK.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  OSA-CERL/ASC/RCE 
Last  modified:  04/27/89  2:46 

Called  by:  MAINX.PRG 

Calls:  FIND1.PRG 

Indexes:  SUCC_SUC.NDX 
:  SUCC_ACT . NDX 
;  SCHD_TF . NDX 
:  SCHD_ACT . NDX 

Documented  04/27/89  at  10:39  SNAP!  version  3.12e 

*  **  it  irk****  *  ******  *  ******  *  *★★★****  *★  *  ***********  ***  ★**  ***  ★**★★***  irk -ft 


*  PROGRAM  :  REPK.PRG 

*  PROGRAMMER  :  Martin  Hanley,  Bill  Nelson,  John  Elston 

*  PURPOSE  :  To  find  the  paths  through  the  activities 


SET  TALK  OFF 
SET  SAFETY  OFF 
SET  DATE  ANSI 
SET  CENTURY  ON 
SET  EXACT  OFF 
IF  output  $  "BP" 

SET  PRINT  OFF 
ENDIF 

IF  output  $  "ABD" 
SET  ALTERNATE  OFF 
ENDIF 


STORE  0  TO  page 
STORE  .T.  TO  newpage 
STORE  0  TO  ourline 

0  10,10  SAY  "Sorting  Input  Data" 

0  24,04  SAY  "REPORT  K:  Activities  to  Crash" 

STORE  ""  TO  tpath, path2, path3, path4 
STORE  0  TO  counter, counterl 

SELECT  B 

INDEX  ON  sue  TC  6Ucc_SUc 
INDEX  ON  act  TO  succ  act 

SELECT  D 

INDEX  ON  efa+STR  ( (200000+tf) ,  6)  +DTOC  (ef )  TO  schd  tf 
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INDEX  ON  act  TO  achd_act 
SELECT  D 

SET  INDEX  TO  schd_t£ 

GO  TOP 

0  10,10  SAY  "Searched  of  "  +  LTRIM(STR(RECCOUNT  () ,  6)  ) 

DO  WHILE  counter  <  4  .AND.  .NOT.  EOF() 

STORE  act  TO  cur 
★ 

*  DETERMINE  PATH  WITH  LEAST  FLOAT  FROM  THIS  POINT 

* 

SET  INDEX  TO  achd_act 
SEEK  cur 

STORE  LTRIM  (STR  (RECNO() ) )  TO  tpath 
SELECT  B 

SET  INDEX  TO  aucc_act 
SEEK  cur 

DO  WHILE  .NOT.  EOF() 

STORE  sue  TO  tsuc 
SELECT  D 
SEEK  tsuc 
STORE  tsuc  TO  msuc 
STORE  tf  TO  mtf 
STORE  RECNO()  TO  mrec 
SELECT  B 
SKIP  1 

DO  WHILE  act  ■  cur  .AND.  .NOT.  EOF() 

STORE  sue  TO  taui 
SELECT  D 
SEEK  tsuc 
IF  .NOT.  EOF () 

IF  mtf  >  tf 

STORE  tsuc  TO  msuc 
STORE  tf  TO  mtf 
STORE  RECNOO  TO  mrec 
ENDIF 
ELSE 
EXIT 
ENDIF 
SELECT  B 
SKIP  1 
ENDDO 

STORE  tpath  +  +  LTRIM (STR (mrec) )  TO  tpath 

SEEK  msuc 
ENDDO 
* 

*  SAVE  FOUND  PATH  £  FLOAT  IN  APPROPRIATE  VARIABLES 

•k 

STORE  counter  +  1  TO  counter 
STORE  LTRIM (STR (counter))  TO  tempstr 
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STORE  tpath  TO  pathttempstr 
* 

*  SKIP  ACTIVITIES  WHICH  OCCUR  IN  PATHS  ALREADY  FOUND  E 

*  SET  RECORD  POINTER  TO  NEXT  HIGHEST  FLOAT  RECORD  TO  START  PATH  SEARCH 

•k 

SELECT  D 

SET  INDEX  TO  schd_tf 
GOTO  TOP 

STORE  counterl  +  1  TO  counterl 
SKIP  counterl 

STORE  +  LTRIM (SIR (RECNO ( ) ) )  +  " . "  TO  tempstr 

STORE  +  pathl  +  TO  tpathl 

STORE  " . "  +  path2  +  " . "  TO  tpath2 

STORE  +  path3  +  TO  tpath3 

DO  WHILE  (AT (tempstr, tpathl)  >  0)  .OR.  (AT (tempstr, tpath2)  >  0)  .OR.  ; 
(AT (tempstr, tpath3)  >  0) 

STORE  counterl  +  1  TO  counterl 
SKIP  1 

STORE  +  LTRIM  (STR  (RECNO  () ) )  +  " .  ••  TO  tempstr 
ENDDO 

* 

*  REINITIALIZE  PATH  VARIABLE 

★ 

STORE  ""  TO  tpath 
0  10,19  SAY  STR (counterl, 6) 

ENDDO  £&  END  OF  MAIN  PROCESSING  LOOP 
* 

*  OUTPUT  ANY  PATHS  FOUND 

* 

IF  output  $  "BP" 

SET  PRINT  ON 
ENDIF 

IF  output  $  "ABD" 

SET  ALTERNATE  ON 
ENDIF 

SET  CENTURY  OFF 
SET  DATE  AMERICAN 
STORE  1  TO  prthead 
SELECT  D 
SET  INDEX  TO 
DO  flndl  WITH  pathl, 1 
DO  findl  WITH  path2,2 
DO  findl  WITH  path3, 3 
DO  findl  WITH  path4,4 

RETURN 

*:  EOF:  REPK.PRG 
AZ 
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*********************************************** ********* ************* 


* 


* 

k 

k 

* 

* 

★ 

★ 

★ 

* 

* 


Program:  REPL.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (o)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/27/89  0:16 

Called  by:  MAINX.PRG 


*:  Documented  04/27/89  at  10:39 


SNAP!  version  3.12e 


* 


********  **  kirk  kk  ***  *****  kkkk  kirk  kkk  ***  **  kirk  kirk  kirk  Irk*  kirk  Irk  kirk  ★  irk  *  irk  kkk  ** 


**  A [  (*16- 67H 

*  REPL.PRG  -  TASK  2,  Report  L:  Delays  in  Design  Module 

*  Marie  McReynolds,  1/25/89 
CLEAR 

SET  STATUS  ON 

*  put  error  checking  here 
STORE  0  TO  matches 
SELECT  F 

SEEK  stnd 


nowpage  *  . T . 

IF  FOUND  () 

STORE  0  TO  page 
STORE  0  TO  curline 

DO  WHILE  SUBSTR(act,5,2)»stnd  .AND.  .NOT.  E0F() 

STORE  act  TO  code 
SELECT  G 
GO  TOP 
SEEK  code 
IF  FOUND  () 

IF  newpaga 
?  eop 
curlin«“0 
paga=paga+l 
?  theader_on 

?  SPACE (17)+' SCHEDULING  ANALYSIS  SYSTEM:  REPORT  L' 

?  shoader_mid 

?  '  ICS  STANDARD  CODE  «  '+stnd+'  :  ' +stndvfistnd+SPACE (62) +'PAGE  #'+STR(page, 6) 


?  sheader_off 

?[  ACTIVITY 

TITLE 

EARLY 

EARLY 

LATE 

LATE 

] 

?? [ACTUAL 

ACTUAL 

TOT 

ORIG 

REM 

LAST 

PCT] 

?[  ID 

START 

FINISH 

START 

FINISH 

] 

?? [START 

FINISH 

FLT 

DUR 

DUR 

DUR 

COMP) 

? 
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newpage=.F. 

BNDZF 

IF  tf  >  0 

IF  tf>ufloat  .AND.  ((f->tf  -  (upercent  *  f->tf))  >  tf) 

?  act+'  '+TITLE+'  ' 

??  DTOC(as)  +  '  '+DTOC(ef)+'  '  +DTOC(ls)+’  '+DIOC(lf)+'  '+DTOC(aa)  +  '  '+DTOC(af)+' 

t 

??  STR(tf,  6)+'  '  +STR  (od,  6)+'  '+STR(rd,  6)  +  '  ' +STR(f->od,  6) +'  ' +STR(pot,  6,  2) 

curline=curline+l 
matchea^matches+l 
ENDIF 
ENDIF 
SKIP 

IF  curline>maxlinasl 
newpage= . T . 

EXIT 

ENDIF 

ENDIF 
SELECT  F 
SKIP 
IF  EOF  () 

EXIT 

ENDIF 

ENDDO 

ENDIF 

?  aop 
■> 

•> 

?  «footer_on 

?  SPACE (50)+'***  END  OF  REPORT  L  ***' 

?  SPACE (20)+'***  THERE  WERE  ' +LTRIM (STR (matches) ) +'  ACTIVITY  ID  NUMBERS  WHICH  MATCHED  THESE  SEARCH 
CRITERIA.  ***' 

?  6footer_off 
?  eop 
RETURN 

*:  EOF:  REPL.PRG 
'2 
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it  •  it  it  it  *  **  *  **  *  **  **  *  **  it  *  *  *  *  *  *  *  ★  *  *  ★  *  *  *  *  ******  ******  *  *  **  *  ★  *  *  *  it  it  *  ***  ★  *  ***  *  it  ** 


★ 

* 

it 


Program:  REPM.PRG 


★ 

it 

* 

★ 

* 


System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ ASC/RCE 
La&t  modified:  04/27/89  1:43 


* 

★ 


Called  by:  MA1NX.PRG 


*:  Calls:  HEADER1 . PRG 


★ * 

*:  Documented  04/27/89  at  10:39  SNAP!  version  3.12e 

★  •  *******************  **********  it  irk  it  it  it  it  it  it  Hit  it  ir -kit  it  it  it  it  it  it  it  hit  it  it  it -kit  it  it  it  it  it  it  it  it  it  it  it 


**  REPM.PRG  -  Do  Report  M 
STORE  0  TO  curline, page 

STORE  0  TO  achdtot,  pasrtot,  aubmtot,  achdmat,  paarmat,  aubmmat 

STORE  0  TO  achdprtot,  paarprtot,  aubmprtot,  achdprmat,  pasrprmat,  aubmprmat 

STORE  0  TO  rduration,  oduration 

STORE  0  TO  badatndcod,badareacod,badauarcod,badbypecod,badaortcod,badrespcod, ; 
badlvlscod, badaubacod 

STORE  0  TO  negfloat,  critpattot,  critpatea,  critpatpct,  asdate,  pctoverO,  rem_oridat 

area^'  '  it  AREA  Code 

atnd«'  '  it  STND  Code 

header2*.F. 

pathl  »  " . "+pathl+" . " 

path2  =  " . "+path2+". " 

path3  «  " . "+path3+" . " 

path4  “  " . "+path4+" . " 

SET  EXACT  OFF 
SELECT  B 
GO  TOP 

pesrtotsRECCOUNT () 

DO  WHILE  .NOT.  BOF() 

IF  SCBSTR (activ_id, 5,2)**' PR'  tt  It  thia  ia  a  PRocurement  Activity 
psarprtotspaarprtot+l 
EHDIF 
SKIP 
ENDDO 
GO  TOP 
SELECT  E 
GO  TOP 

submtotsRECCOUNT ( } 

DO  WHILE  .NOT.  EOF() 

IF  SUBSTR  (naa,  S,  2)  «*'PR'  ffi  If  thia  ia  a  PRocurement  Activity 
submprtot=submprtot+l 
ENDIF 
SKIP 


ENDDO 
GO  TOP 

SELECT  D  Si  schedule. dbf 


102 


GO  TOP 

schdtot=RECCOUNT() 

DO  WHILE  .HOT.  EOF() 

IF  SUBSTR(act, 5, 2) =' PR'  St  If  this  is  a  PRocucement  Activity 
schdprtot=schdprtot+l 
ELSE 

IF  rd>20 

rduration=rduration+l 
ENDIF 
IF  od>20 

oduration=oduration+l 

ENDIF 

ENDIF 

IF  .NOT.  SUBSTR(act,5,2)$stndcodes  St  If  not  a  valid  "SIND"  ID  Code 
badstndcod=badstndcod+l 
ENDIF 

IF  .NOT.  SUBSTR(act, 1, 1) $areacodes  St  If  not  a  valid  "AREA"  ID  Code 
badareacod=badareacod+l 
ENDIF 

IF  .NOT.  SUBSTR(act, 2, 1) $suarcodes  St  If  not  a  valid  “SUBArea"  ID  Code 
badsuarcod=badsuarcod+l 
ENDIF 

IF  .NOT.  SUBSTR(act,3,2)$typecodea  it  If  not  a  valid  "TYPE  of  work"  ID  Coda 
badtypecod<=badtypecod+l 
ENDIF 

IF  .NOT.  RTRIM (SORT) Srespcodes  it  If  not  a  valid  "SORT"  Code. 

badsortcod=badsortcod+l 

ENDIF 

IF  .NOT.  RTRIM (resp) $respcodes  St  If  not  a  valid  "RESP"  Code. 

badrespcod=badrespcod+l 

ENDIF 

IF  .NOT.  RTRIM (lvls) $lvlscodes  it  If  not  a  valid  "LVLS"  Code. 

badl vl scod=badlvlscod+l  it  lvlscodes=' D, DC, DP, DZ, JO,M, OUT, S, Z' 

ENDIF 

IF  SUBS  <>  SPACE (5) 

IF  .NOT.  RTRIM (SUBS)  $  subscodesl  .AND.  .NOT.  RTRIM(SUBS)  $  subscodes2 
*  If  not  a  valid  "SUBS"  Code. 
badsubscod=badsubscod+l 
ENDIF 
ENDIF 
IF  tf<0 

negfloat=ncgfloat+l 

ENDIF 

mrecno  =  +  LTRIM (STR(RECNO () ) )  + 

IF  mrecno  $  pathl  .OR.  mrecno  $  path2  .OR.  mrecno  $  path3  .OR.  mrecno  $  path4 
critpattot=critpattot+l 

IF  es>=as  a  If  Activity  started  on  or  before  the  Early  Start  Date 
cricpates=crj.tpates+l 
ENDIF 

IF  pct>=( (od/rd) *100) 
critpatpct=critpatpct+l 
ENDIF 
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ENDIF 

IF  as<( datadate-7)  .AND.  pot<100 

asdate<°asdate+l 

ENDIF 

IF  pct>0  (.OR.  rd>0  .AND.  as«0) 
pctoverO*pctoverO+l 
ENDIF 

IF  rd>od  CC  If  Remaining  Duration  >  Original  Duration 
rem_oridat*ram_oridat+l 
ENDIF 
SKIP 
ENDDO 
GO  TOP 

DO  WHILE  .NOT.  EOF() 

SELECT  B 

SEEK  SUBSTR(d->act, 1, 9)  it  Substring  must  atay  at  Aotiv_id,l,9  to  gat  all  matches 
IF  FOUND  () 

pssrmatapssrmat+1 
IF  curlina>maxlinesa.AND.mch$'DB' 

DO  headerl 
ENDIF 

IF  area  <>  SUBSTR(d->act,l,l)  .AND.  area  <>  '4'  .AND.  mch  $  'DB' 
area=SUBSTR(d->act, 1,1) 

DO  headerl 
ENDIF 

IF  atnd  <>  SUBSTR(d->act, 5, 2)  .AND.  mch  $  'DB' 
atnd=SUBSTR (d->act ,5,2) 

?'  *******************  '+stnd+'  :  ' +TRIM (stndvSstnd) +; 

'  ********************1 

curlina*=curline+l 

ENDIF 

IF  mch$'DB' 

?  SPACE ( 7 ) +d->act+ '  '+d->titla+'  '+DTOC(d->es)+'  '+DTOC(d->#f)+'  ' +DTOC (d->ls) 

+'  ' +DTOC (d->lf) +STR (d->tf , 8) +STR (d->od, 8) +STR (d->rd, 6) +STR (d->pct , 6) 

curline=curlina+2 
? 

IF  curline>maxlinesa 
DO  headerl 
ENDIF 

area=SUBSTR (d->act ,1,1) 

ENDIF 

IF  SUBSTR(d->act, 5, 2)='PR'  sc  If  this  is  a  PRocurement  Activity 
schdprmat=schdprmat+l 
ENDIF 

IF  SUBSTR(activ_id, 5, 2) ='PR'  tt  If  this  is  a  PRocurement  Activity 
psorprmat=p8srprmat+l 
ENDIF 
ENDIF 
SELECT  E 
GO  TOP 
IF  EOF  () 

EXIT 
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ENDZF 

mnaa=SUBSTR(nas,  1,  9) 

SEEK  SUBSTR(d->act, 1, 9)  ts  Substring  must  stay  at  Activ_id,l,9  to  get  all  matches 
IF  FOUND  () 

#ubmmat=aubmmat+l 

IF  SUBSTR(e->nas, 5, 2)=' PR'  tt  If  this  is  a  PRocurement  Activity  match 
submprmat=submprmat+l 
ENDIF 
ENDIF 
SELECT  D 
IF  EOF  () 

EXIT 

ENDIF 

mact<=SUBSTR(act,  1,  9) 

SKIP 
ENDDO 
?  eop 

??  sheader_on 

?  SPACE (17)+' SCHEDULING  ANALYSIS  SYSTEM:  REPORT  '+reportch 
?  iheaderjnid 

?  SPACE (50)+'***  SUMMARY  FOR  REPORT  M  ***' +SPACE (45) +'PAGE  1' 

•> 

7 

7  SPACE (40)+' ITEM  ONE,  PART  A:  Overall  Activity  Correspondence' 

? 

7  '  This  Schedule  file,  ' +filsched+' ,  contains 
+LTRIM (STR (schdtot) ) +'  unique  Activity  ID  numbers,' 

7  '  The  PSSR  file,  ' +filpssr_pr+' ,  contains 

+LTRIM(STR(pesrtot) )+'  unique  Activity  ID  numbers.' 

?  '  The  Submittal  file,  '+filsubmi+' ,  contains 

+LTRIM(STR(submtot) )+'  unique  Activity  ID  numbers.' 
testvar= (pssrmat/pasrtot*100) 

SELECT  F 
GOTO  TO? 

IF  testvar>a2 
SKIP 

IF  tostvar>a2 
SKIP 

IF  tostvar>a2 
SKIP 

IF  teatvar>a2 
SKIP 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

?  SPACE(10)+LTRIM(STR(ps6rmat) )+'  PSSR  Activities,  or  '; 

+LTRIM (STR (ps firms t/pssrtot*l 00,10,2))+'%  of  the  hotel  PSSR  Activities,'; 

+'  matched  Activities  in  the  Schedule  file.  GRADE  =  '+LTRIM (category) 
testvar=(submmat/submtot*100) 

GOTO  TOP 
IF  testvar>a2 
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SKIP 

IP  tactvar>a2 
SKIP 

IF  teatvar>a2 
SKIP 

IF  teatvar>a2 
SKIP 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

?  SPACE (10) +LTRIM(STR(aubmmat) )+'  Submittal  Activitiaa,  or  '; 

+LTRIM(STR(aubmmat/aubmtot*100, 10, 2) ) +' %  of  tha  total  Submittal  Actlvltlaa, ' ; 

+'  mat chad  Actlvltlaa  In  tha  Schadula  flla.  GRADE  =  ' +LTRIM (catagory ) 

?  SPACE (15)+' (According  to  tha  grading  acala  Input  aarllar,  this  aaaumaa  that  tha 
+RTRIM (catagory) +' "  ranga  la  from  '+LTRIM (STR(al) )+' %  to  ' +LTRIM (SIR (a2) )+'%.) ' 


?  SPACE (40)+' ITEM  ONE,  PART  B:  Procuramant  Activity  Corraapondanca' 

j 

?'  Thla  Schadula  flla,  ' +fllachad+' ,  containa  '+LTRIM(STR(achdprtot) ) ; 

+'  uniqua  Activity  ID  numbara  which  indicata  Procuramant  Actlvltlaa.' 

?'  Tha  PSSR  flla,  '+filpaarj>r+' ,  containa  '+LTRIM(STR(p«arprtot) ) ; 

+'  unique  Activity  ID  numbara  which  indicata  Procuramant  Actlvltlaa.' 

?'  The  Submittal  file,  '+filaubml+' ,  containa  '+LTRIM(STR(aubinprtot) )  ; 

+'  unique  Activity  ID  numbara  which  indicata  Procuramant  Actlvltlaa.' 
tcatvar* (pssrprmat/achdprtot*100) 

GOTO  TOP 
IF  teatvar>b2 
SKIP 

IF  teatvar>b2 
SKIP 

IF  teatvar>b2 
SKIP 

IF  taatvar>b2 
SKIP 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

?  SPACE (10) +LTRIM(STR(psarprmat) )+'  Schadula  Procuramant  Actlvltlaa,  or 
+LTRIM(STR(pssrprmat/achdprtot*100,10,2))+'%  of  tha  total  Schadula  Procuremenc  Actlvltlaa,' 
?  SPACE (12) +'  matched  Procuramant  Actlvltlaa  in  the  PSSR  file.  GRADE  =  '+LTRIM (catagory) 
testvar=(aubmprmat/achdprtot*100) 

GOTO  TOP 

IF  i.aatvar^b2 
SKIP 

IF  teatvar>b2 
SKIP 

IF  tastvar>b2 
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SKIP 

IF  teptvar>t>2 
SKIP 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

?  SPACE (10H I»TRIM (SIR (submprmat) )  +'  Schedule  Procurement  Activities,  or  '; 

+LTRIM(STR(submprmat/schdprtot*100, 10, 2) ) +' %  of  the  total  Schedule  Procurement  Activities,' 

?  SPACE (12)+'  matched  Procurement  Activities  in  the  Submittal  file.  GRADE  =  ' +LTRIM (category) 

*•  SPACE (15)+'  (According  to  the  grading  scale  input  earlier,  this  assumes  that  the 
+RTRIM (category) +' "  range  is  from  ’ +LTRIM(STR(bl ) )+' %  to  ' +LTRIM('5TR(b2) )+'%.)' 

•> 

?  SPACE (40)  +  ' ITEM  ONE,  PART  C:  Non-Procurement  Activity  Durations' 

■} 

?'  This  Schedule  t’ile,  ' +filached+' ,  cortains  '; 

+LTRIM (STR  (scbdtot-schdprtot) )+'  non-Procurement  Activities. ' 
tostvar= (rduration/ (schdtot -schdprtot) *100) 

GOTO  TCP 

IF  teatvar>c2 
SKIP 

IF  testva r>c2 

skip 

IF  testvar>c2 
SKIP 

IF  testvar>c2 
SKI? 

ENDIF 

ENDIF 

ENDIF 

ENDIF 

?  SPACE (10) +LTRIK(STR (rduration) ) +' ,  or  ' +LTRIM(STR (rduration/ (schdtot-echdprtot) *100, 10, 2) ) ; 

+'%,  of  Schedule  non-Procurement  Activities  have  "Remaining  Durations"  exceeding  20  days.  GRADE 
=  '+LTRIM (category) 

iostvar= (oduratlon/ (schdtot-schdprtot) *100) 

GOTO  TOP 

IF  testvar>c2 
SKIP 

IF  testvar>c2 
SKIP 

IF  testvar>c2 
SKIP 

IF  testvar>c2 
SKIP 
ENDIF 
ENDIF 
ENDIF 
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ENDIF 

?  SPACE (10)+LTRIM(STR (oduration) )+' ,  or  ' +LTRIM (STR {odur*tion/ (schdtot-schdprtot) *100, 10, 2) ) ; 

+'%,  of  Schedule  non-Procureroant  Activities  have  "Original  Duration*"  exceeding  20  day*.  GRADE 
■  '+LTRIM (category) 

?  SPACE  (15)+'  (According  to  the  grading  acala  input  earlier,  thia  assumes  that  the 
+RTRIM (category) +' "  range  ia  from  '+LTRIM(STR(c2) ) +' %  to  '+LTRIM(STR(cl) )+'%.) ' 

■> 

? 

?  SPACE (40)+' ITEM  ONE,  PART  D:  Correct  Coding  ' 

? 

?'  Thia  Schedule  file,  ' +filach*d+' ,  contain*  '+LTRIM(STR(schdtot) ) ; 

+'  Activity  ID  numbers.  The  following  Activity  Code*  and  Activtiy  ID  Codes' 

?'  are  analyzed  for  their  compliance  with  the  Code  Dictionary'; 

+'  developed  for  the  "NTF"  system  in  Primavara.' 
testv*r=( (schdtot-badstndcod) /*chdtot*100) 

GOTO  TOP 

IF  te*tvar>d2 
SKIP 

IF  te*tvar>d2 
SKIP 

IF  testvar>d2 
SKIP 

IF  toatvar>d2 
SKIP 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

?  SPACE (10) +LTRIM(STR(*chdtot-badstndcod) )+' ,  or  '; 

+DTRIM(STR( (schdtot-badstndcod) /achdtot*100, 10, 2) )+' %,  have  the  correct  "STND"  ID  Code.  GRADE  = 
'+LTRIM (category) 

tastvar=*  ( (schdtot-badareacod)  /achdtot*100) 

GOTO  TOP 

I?  tostvar>d2 
SKIP 

IF  testvar>d2 
SKIP 

IF  teatvar>d2 
SKIP 

IF  testvar>d2 
SKIP 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

?  SPACE (10) +LTRIM(STR (schdtot-badareacod) )+' ,  or  '; 


i 
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GRADE  = 


+LTRIM(STR((achdtot-badareacod)/schdtot*100,10,2))+'%,  have  the  correct  "AREA"  ID  Code. 

' +LTRIM (category) 

testvar=< (schdtot-badsuarcod) /schdtot*100) 

GOTO  TOP 

IF  testvar>d2 
SKIP 

IF  testvar>d2 
SKIP 

IF  testvar>d2 
SKIP 

IF  testvar>d2 
SKIP 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

?  SPACE (10) +LTRIM(STR (schdtot-badsuarcod) )+' ,  or 

+LTRIM(STR( (schdtot-badsuarcod) /schdtot*100, 10,2))  +  '%,  have  the  correct  "SUBAREA"  ID  Code. 
=  '+LTRIM (category) 

testvar= ( (schdtot-badtypecod) /schdtot*100) 

GOTO  TOP 

IF  testvar>d2 
SKIP 

IF  testvar>d2 
SKIP 

IF  testvar>d2 
SKIP 

IF  tostvar>d2 
SKIP 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

?  SPACE (10) +LTRIM(STR (schdtot-badtypecod) )+' ,  or 

+LTRIH<STR( (schdtot-badtypecod) /schdtot*100, 10, 2) ) +•; 

have  the  correct  "TYPE  OF  WORK"  ID  Code.  GRADE  =  '+LTRIM (category) 

«  •-■in  var=  ( (schdtot-badsortcod)  /schdtot*100) 

GOTO  TOP 

IF  testvar>d2 
SKIP 

IF  testvar>d2 
SKIP 

IF  testvar>d2 
SKIP 


GRADE 
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IF  teatvar>d2 
SKIP 
ENDIF 
EHDIF 
ENDIF 
ENDIF 

?  SPACE(10)+LTRIM(STR(achdtot-badaortaod) )+' ,  or 

+LTRIM (STR ( (achdtot-badaortcod) /achdtot*100, 10 , 2) >  +; 

'%,  have  tha  corraot  "SORT"  Coda.  GRADE  *  '+LTRIM(catagory) 
t«»tvar“(  (achdtot-badraapcod) /achdtot*100) 


GOTO  TOP 

IF  teatvar>d2 
SKIP 

IF  taatvar>d2 
SKIP 

IF  tastvar>d2 
SKIP 

IF  testvar>d2 
SKIP 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

?  SPACE  (lO)-tLTRIM(STR(achdtot-badrespcod) )+' ,  or 

+LTRIM(STR( (achdtot-badraapcod) /achdtot*100, 10,2) )+' %,  hava  tha  oorract  "RESPONSIBILITY"  Code. 
GRADE  -  '+LTRIM (category) 

teatvar=( (achdtot-badlvlscod) /achdtot*100) 


GOTO  TOP 

IE  teetvar>d2 
SKIP 

IF  teatvar>d2 
SKIP 

IF  tastvar>d2 
SKIP 

IF  taatvar>d2 
SKIP 
ENDIF 
EHDIF 
EHDIF 
ENDIF 

?  SPACE (10) +LTRIM (STR (achdtot-badlvlaood) ) +' ,  or 

+LTRIM(STR( (schdtot-badlvlacod) /schdtot*100, 10, 2) )+' %,  have  the  correct  "LVLS"  Code.  GRADE  = 
'  i-LTRIK  (category) 

testvar=( (schdtot-badaubacod) /achdtot*100) 

GOTO  TOP 
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IF  testvar>d2 
SKIP 

IF  testvar>d2 
SKIP 

IF  teatvar>d2 
SKIP 

IF  teatvar>d2 
SKIP 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

?  SPACE (10) +LTRIM (SIR (schdtot-badsubscod) )+' ,  or  '; 

+LTRTM(STR( (achdtot-badsubacod) /achdtot*100, 10, 2> )+; 

'%,  hava  the  correct  "SUBCONTRACTORS"  Code.  GRADE  =  ' +LTRIM (category) 

?  SPACE (15)+' (According  to  the  grading  acale  Input  earlier,  thia  assumes  that  the  "'; 
+RTRIM (category) +' "  range  la  from  ' +LTRIM (STR(dl) )+' %  to  ' +LTRIM(STR(d2) )+'%.) ' 

?  eop 

??  £header_on 

?  SPACE (17)+' SCHEDULING  ANALYSIS  SYSTEM:  REPORT  '+reportch 
?  £header_mid 

?  SPACE (50)+'***  SUMMARY  FOR  REPORT  M  ***' +SPACE (45) +' PAGE  2' 

? 

? 

?  SPACE (40)+' ITEM  TWO,  PART  A:  Negative  Float' 

? 

SELECT  G 
GOTO  TOP 


testvar= (negf loat /schdtot *100) 
IF  testvar<a2 
SKIP 

IF  tei  tvar<a2 
SKIP 

IF  testvar<a2 
SKIP 

IF  testvar<a2 
SKIP 
ENDIF 
ENDIF 
ENDIF 


?'  This  Schedule  file,  ' +filschod+' ,  contains  '+LTRIM (STR (schdtot) ) +'  Activities,  of  which  '; 

+LTRIM (STR (negfloat) )  +  ' ,  or  '  +LTRIM (STR (negf lost /schdtot*100, 10,2))+'  %,  have  negative  float. 
GRADE  o  '+LTRIM(catego-y) 

?  SPACE (15) +' (According  to  the  grading  scale  input  earlier,  this  assumes  that  the 
+RTRIM (category) +' "  range  is  from  ' +LTRIM(STR (a2) )+'  to  ' +LTRIM (STR (al) ) 

?  SPACE (15)+'  Activities  with  negative  float.)' 
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J 

?  SPACE (40)+' ITEM  TWO,  PART  B:  Critical  Path  Analyaia  1' 

? 

IF  critpattot*0 

V  IM  ORDER  TO  GET  MEANINGFUL  OUTPUT  FOR  THIS  SUB-ITEM,  REPORT  K: ,  "ACTIVITIES  TO  CRASH",  MUST 
BE  RUN  FIRST.' 

ELSE 

GOTO  TOP 


testvar«(critpatas/critpattot*100) 

IF  teatvar>b2 
SKIP 

IF  teatvar>b2 
SKIP 

IF  teatvar>b2 
SKIP 

IF  teatvar>b2 
SKIP 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

?  '  In  Schedule  file  ' +filoched+' ,  '+LTRIM(STR(critpataa) )+'  of  '; 
+LTRIM(STR(critpattot) )+'  Activitlaa  on  tha  four  moat  critical  paths,'; 

+'  or  '+LTRIM(STR(critpatea/eritpattot*100,10,2))+'  %,  started' 

?  '  on  thair  "Early  Start  Data".  GRADE  «  '+LTRIM (category) 

?  SPACE (15)+'  (According  to  the  grading  seal*  input  earlier,  this  assumes  that  the  "' 
+RTRIM (category) +' "  range  is  from  '+LTRIM(STR(bl) )+'%  to  '+LTRIM(STR(b2) )+'%.) ' 
ENDIF 

•> 

j 

?  SPACE (40)+' ITEM  TWO,  PART  C:  Critical  Path  Analysis  2' 


IF  critpattot=0 

?'  IN  ORDER  TO  GET  MEANINGFUL  OUTPUT  FOR  THIS  SUB-ITEM,  REPORT  K:,  "ACTIVITIES  TO  CRASH",  MUST 
PS  RUN  FIRST.' 

ELSE 

GOTO  TOP 

testvar=(critpatpct/critpattot*100) 

IF  testvcr>c2 
SKIP 

IF  testvar>c2 
SKIP 

IF  tastvar>c2 
SKIP 

IF  testvar>c2 
SKIP 
ENDIF 


112 


ENDIF 


ENDIF 

ENDIF 

?  '  In  Schedule  file  ' +filached+' ,  '+LTRIM(STR(critpatpct) )+'  of  '; 
+LTRIM(STR(critpattot) )+'  Activities  on  the  four  moct  critical  paths,'; 

+  '  or  '+LTRIM(STR(critpatpct/critpattot*100, 10,2))+'  %,  ' 

?  '  have  a  "Percent  Complete"  value  greater  than  or  equal  to  the' ; 

+'  porportion  of  the  "Original  Duration"  value  to' 

?  '  that  of  the  "Remaining  Duration".  GRADE  =  '+LTRIM (category) 

?  SPACE (IS) +' (According  to  the  grading  scale  input  earlier,  this  assumes  that  the 
+RTRIM (category) +' "  range  is  from  '+LTRIM(STR(cl) >+' %  to  '+LTRIM(STR(c2) )+'%.) ' 
ENDIF 

7 

7 

?  SPACE (40)+' ITEM  TWO,  PART  D:  "Actual  Start  Date"  Analysis' 


GOTO  TOP 


testvar= (asdate/schdtot*100) 
IF  testvar>d2 
SKIP 

IF  testvar>d2 
SKIP 

IF  testvar>d2 
SKIP 

IF  testvar>d2 
SKIP 
ENDIF 
ENDIF 
ENDIF 
ENDIF 


?  '  This  Schedule  file,  ' +filsched+' ,  contains  '+LTRIM(STR(schdtot) ) ; 

+  '  Activities,  of  which  ' +LTRIM (STR (asdate) ) +' ,  or  '; 
+I.TRIM(STR(asdate/schdtot*100,10,  2) )+'  %,  will  be  completed' 

?  '  if  the  "Actual  Start  Date"  is  greater  than  1  week  prior  to  the  '; 

+  'Primavera  "Data  Date",  and  the  "Percent  Completed"  is' 

?  '  less  than  100.  GRADE  =  '+LTRIM (category) 

?  SPACE (15)+' (According  to  the  grading  scale  input  earlier,  this  assumes  that  the  "' 
+RTRIM  (category) +'"  range  is  from  '+LTRIM(STR(dl) )+'  %  to  ' +I.TRIM(STR(d2) )  +  '%.) ' 

•> 

? 

?  SPACE (40)+’ ITEM  TWO,  PART  E:  "Percent  Complete"  Greater  Than  0' 


WV4W 


TO? 


testvar=  (pctover0/schdtot*100) 
IF  testvar<e2 
SKIP 
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IF  testvar<e2 


SKIP 

IF  testvar<e2 
SKIP 

IF  testvar<e2 
SKIP 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

?  '  This  Schedule  file,  ' +filsched+' ,  contains  ' +LTRIM (STR(schdtot) ) ; 

+  '  Activities,  of  which  ' +LTRIM(STR(pctoverO) ) +' ,  or  '; 

+LTRIM(STR(pctover0/schdtot*100,10,2))+'  %,  have  either  a  "Percent  Complete"' 

?  '  greater  than  0  or  a  "Remaining  Duration"  with  no  "Actual  Start  Date." 

'+LTRIM (category) 

?  SPACE (15) +' (According  to  the  grading  scale  input  earlier,  this  assumes  that  the 
+RTRIM (category) +' "  range  is  from  ' +LTRIM(STR(e2) )+' %  to  '+LTRIM(STR (el) )+'%.)' 

? 

? 

?  SPACE (40)+' ITEM  TWO,  PART  F:  "Remaining  Duration”  Greater  than  "Original  Duration"' 

7 

GOTO  TOP 

testvar«(rem_oridat/schdtot*100) 

IF  testvar>f2 
SKIP 

IF  testvar>f2 
SKIP 

IF  testvar>f2 
SKIP 

IF  testvar>f2 
SKIP 
EHDIF 
ENDIF 
ENDIF 
ENDIF 

?  '  This  Schedule  file,  ' +filsched+' ,  contains  ' +LTRIM (STR(schdtot) ) ; 

+'  Activities,  of  which  '+I,TRIM(STR(rera_oridat) )+' ,  or 

+LTRIM(STR(rem_oridat/schdtot*100, 10,2) ) +'  %,  have  a  "Remaining  Duration"' 

”  '  greater  than  their  "Original  Duration".  GRADE  =  '+LTRIM (category) 

?  SPACE (15)+' (According  to  the  grading  scale  input  earlier,  this  assumes  that  the 
+RTRIM (category) +' "  range  is  from  ' +LTRIM(STR (f2) )+' %  to  '+LTRIM(STR(fl) )+'%.)' 

7 

?  sfooter_off 
’  eop 
RETURN 

*:  EOF:  REPM.PRG 


GRADE  = 
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* • ********************************************************************* 


* 

★ 

★ 


Program:  REPO.PRG 


*:  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (o)  1989,  USA-CERL/ASC/RCE 

*:  Last  modified:  04/20/89  14:31 

* ; 

*:  Called  by:  MAINX.PRG 

*  ■ 


* 

* 


Calls:  STND  FND.PRG 


* 

* 

* 

* 

* 

* 

* 

* 

* 


Uses:  NEW_TEMP . DBF 
:  NEWSCHED . DBF 
:  MRG_FILE . DBF 
:  SFILSCHED1 
:  CFILSCHED2 
:  &FILSCHED3 
:  SFILSCHED4 
:  SFILSCHED5 


* :  Documented  04/27/89  at  10:40 


SNAP!  version  3.12e 


* : ********************************************************************* 


CLOSE  DATABASES 
CLEAR 

0  10,10  SAY  "MERGING  FILES  PLEASE  WAIT" 
ERASE  mrgndx.ndx 
SELECT  G 

ERASE  newsched.dbf 
USE  new_temp 

COPY  STRUCTURE  TO  newsched 
SELECT  H 
USE  mrg_file 
ZAP 


IF  LEN (TRIM (Zilschedl) )  >  0 
STORE  filschedl  TO  filename 
APPEND  FROM  £ filschedl 
GOTO  TOP 

DO  WHILE  .NOT.  EOF() 

REPL  FILE  WITH  fil_name 
SKIP 
ENDDO 
ENDIF 


IF  LEN (TRIM (filsched2))  >  0 
STORE  filschod2  TO  fil  name 
GOTO  BOTTOM 
recnum  =  RECNO()  +  1 
APPEND  FROM  £filsched2 
GO  recnum 
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DO  WHILE  .HOT.  KOF() 

REPL  FILE  WITH  fil_nama 
SKIP 
EHDDO 
ENDIF 

IF  LEH (TRIM(fil*chad3) )  >  0 
STORE  fil»ched3  TO 
GOTO  BOTTOM 
racnum  ■  RECNO()  +  1 
APPEND  FROM  fifil»chad3 
GO  racnum 

DO  WHILE  .NOT.  EOF() 

REPL  FILE  WITH  fil_n«me 
SKIP 
ENDDO 
ENDIF 

IF  LEN(TRIM(fil»chad4) )  >  0 
STORE  fil»chad4  TO  fil_nama 
GOTO  BOTTOM 
racnum  »  RECNO()  +  1 
APPEND  FROM  Sfilsched4 
GO  racnum 

DO  WHILE  .NOT.  EOF() 

REPL  FILE  WITH  fil_naraa 
SKIP 
ENDDO 
ENDIF 

IF  LEN (TRIM (fil»chad5) )  >  0 
STORE  £il«chad5  TO  fll_nama 
GOTO  BOTTOM 
racnum  *  RECNO()  +  1 
APPEND  FROM  tfilschedS 
GO  recnum 

DO  WHILE  .NOT.  EOF() 

REPL  FILE  WITH  fil_nama 
SKIP 
ENDDO 
ENDIF 


ERASE  mrgndx.ndx 


SELECT  H 

DO  «tnd__fnd 

SELECT  H 
ZAP 

RETURN 


*:  EOF:  REPO.PRG 
"Z 
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STORE  SPACE  (10)  TO  wakey 
STORE  0  TO  Lina, num, page 
STORE  '1'  TO  rptl 
STORE  '0'  TO  rpt2 
DO  tltlel 


SELECT  1 

DO  WHILE  .HOT.  EOF() 
STORE  act  TO  wakey 
SELECT  2 
FIND  twckey 
IF  EOF  () 

SELECT  1 
num  =  num  +  1 
DO  printact 
ENDIF 
SELECT  1 
SKIP  1 

ENDDO 

Line  =  Line  +  2 
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■(  'THE  TOTAL  NUMBER  OF  DELETED  ACTIVITIES  « 
DO  cloeofil 
*DO  TOTOP 
RETURN 

*:  EOF:  REPR.PRG 
AZ 


'+  STR  (num,  3) 
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STORE  SPACE  (10)  TO  wakey 
STORE  0  TO  Line, num, page 
STORE  '1'  TO  rptl 
STORE  '0'  TO  rpt2 
DO  titlel 
★ 


SELECT  1 

DO  WHILE  .HOT.  EOF{) 
STORE  act  TO  wakey 
SELECT  2 
FIHD  twskey 
IF  EOF ( ) 

SELECT  1 
num  «  num  +  1 
DO  prlntact 
ENDIF 
SELECT  1 
SKIP  I 

ENDDO 

Line  =  Line  +  2 
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+  STR(num, 3) 


?  'THE  TOTAL  NUMBER  OF  DELETED  ACTIVITIES  «  ' 
DO  clotefil 
*DO  TOTOP 
RETURN 

*:  EOF:  REPR.PRG 
A2 
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*  •  ********************************************************************* 


*: 

*  j 
* ; 

*  ; 

*  i 

*  i 
*: 

*  j 


Program:  REPT.PRG 

System;  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/27/89  6:48 


* 


Called  by:  MAINX.PRG 


* 

* 

* 

it 

* 

1r 


Calls:  OPENFILS  (procedure  in  PROCS.PRG) 

:  TITLE1.PRG 
:  PRINTACT , PRG 

:  CLOSEi’IL  (procedure  in  PROCS.PRG) 

documented  04/27/29  at  10:40  SNAP!  version  3.12e 


*  •  **  ******************************************************************* 


DO  openfils 
* 


**  IN  CURRENT  SCHEDULE  FIND  ACTIVITIES  WHICH  HAVE  INCONSISTENCY 
**  BETWEEN  PERCENT  COMPLETES  AND  ACTUAL  START/FINISH  DATES 
* 


**  INITIALIZE  AND  PRINT  TITLE 
CLEAR 

0  10,5  SAY  "RUNNING  REPORT  T  —  FIND  ACTIVITIES  WHICH  HAVE  INCONSISTENCY" 
0  11,5  SAY  "BETWEEN  PERCENT  COMPLETES  AND  ACTUAL  START/FINISH  DATES" 


SELECT  2 
GOTO  TOP 
* 


STORE  0  TO  num, page.  Line 
STORE  '3'  T"0  rptl 
STORE  '1'  TO  rpt2 
DO  tit.lel 
* 


DO  WHILE  -NOT.  EOF() 

IF  pet  =  0  .AND.  DTOC(as)  O'  /  /  ' 

comments  =  'HAS  ACTUAL  START  DATE  BUT  NO  PERCENT  COMPLETE' 
DO  trintact 
num  =  num  +  1 
SKIP 
LOOP 
ENDIF 
* 

IF  pci:  >  0  .AND.  DTOC(as)  *  '  /  /  ' 

comments  =  'HAS  NON-ZERO  PCV  BUT  NO  ACTUAL  START  DATE' 

DO  print act 
num  =  num  +  1 


SKIP 

LOOP 

ENDIF 
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* 

IF  pet  “  300  .AND.  DTOC(af)  “ 'll ' 

comment*  =  'HAS  100%  PCI'  BOT  NO  ACTUAL  FINISH  DATE- 
DO  prlntact 
num  =  num  +  1 
SKIP 
LOOP 
ENDIF 
SKIP  1 
ENDDO 

Line  =  Line  +  2 
? 

?  -THE  TOTAL  NUMBER  OF  PCT/DATE  INCONSISTENT  ACTIVITIES  =  - +STR (num, 3) 
*DO  TOTOP 
DO  closefil 
RETURN 

*:  EOF:  REPT.PRG 
AZ 


123 


* ; ******************************************* A************************* 

*  ; 

*:  Program:  REPU.PRG 

★  • 


*:  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (o)  1989,  USA-CERL/ASC/RCE 

*:  Last  modified:  04/26/89  18:13 

*; 

*:  Called  by:  MAINX.PRG 

*  ; 


*; 


*  ; 


*; 


*  ; 


*  ; 


Calls:  OPENFILS  (procedure  in  PROCS.PRG) 

:  TITLE1.PRG 
:  PRINTACT.PRG 

:  CLOSEFIL  (procedure  in  PROCS.PRG) 


*:  Documented  04/27/89  at  10:40 


SNAP!  version  3.12e 


DO  openfils 
★ 


**  FIND  DESCRIPTION  CHANGED  ACTIVITIES 
* 


**  INITIALIZE  AND  PRINT  TITLE 
* 

* 


CLEAR 

010,10  SAY  "REPORT  U  ~  FIND  DESCRIPTION  CHANGED  ACTIVITIES" 
SELECT  1 
GOTO  TOP 
SELECT  2 
GOTO  TOP 
* 

STORE  SPACE (10)  TO  wakey 
STORE  0  TO  Line, num, page 
STORE  '4'  TO  rptl 
STORE  '0'  TO  rpt2 
DO  titlel 
Line  =  Line  +  1 
* 

SEL2CT  1 

DO  WHILE  .NOT.  EOF() 

STORE  act  TO  wskey 
STORE  TITLE  TO  wstitle 
SELECT  2 
FIND  Cwskey 
IF  .NOT.  EOF () 

* 

**  CHANGE  OF  TITLE 
* 

IF  TITLE  <>  wstitle 
DO  printact 
SELECT  1 
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DO  printact 
Line  =  Line  +  1 
num  =  num  +1 
SKIP  1 
LOOP 
ENDIF 
ENDIF 
SELECT  1 
SKIP  1 
ENDDO 
* 

Line  =  Line  +  2 
? 

?  'THE  TOTAL  NUMBER  OF  ACTIVITIES  FOUND  =  ' 
*DO  TOTOP 
DO  closefil 
RETURN 

*:  EOF:  REPU.PRG 


+  STR(num,  3) 
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*****  **  **  *  ******  #*******##**#****##*****|»***t*###*#*#*#l»*#|»#**r*#*l»*#* 


* 


★ 

* 

* 

* 

+ 


A 


Program:  REPV.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCB 
Last  modified:  04/26/89  18:14 


a 

* 


Called  by:  MAINX.PRG 


* 

* 

* 

* 

* 


Call*:  OPENFILS  (proc*dur*  in  PROCS.PRC) 

:  TITLE1.2RG 
:  PRINTACT.PRG 

:  CTOSEFIL  (procadur*  in  PROCS.PRG) 


★ 

★ 


Documented  04/27/89  at  10:40  SNAP!  version  3.12e 

A*******************************/'************************************ 


DO  openfils 
a 


**  FIND  ORIGINAL  DURATION  CHANGED  ACTIVITIES 

A 

**  INITIALIZE  AND  PRINT  TITLE 

A 


CLEAR 

0  10,10  SAY  "RUNNING  REPORT  V  —  FIND  ORIGINAL  DURATION  CHANGED  ACTIVITIES" 


SELECT  1 
GOTO  TOP 
SELECT  2 
GOTO  TOP 

A 

STORE  SPACE (10)  TO  wakey 
STORE  0  TO  Line, num, page 
STORE  '5'  TO  rptl 
STORE  '1'  TO  rpt2 
comments  «•  '  ' 

DO  titlel 
Lino  Line  +  1 

A 

STORE  0  TO  temp 
SELECT  1 

DO  WHILE  .NOT.  EOF() 

STORE  act  TO  wakey 
STORE  od  TO  wsod 
SELECT  2 
FIND  swskey 
IF  . NOT .  EOF ( ) 

A 

**  NEW  OD  >  OLD  OD  AND  NEAR  CRITICAL  PATH 

A 

IF  od  >  wsod  .AND.  tf  <  5  .AND.  pot  <  100 
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temp  =  (od  -  wsod)  /  od  *  100 
IF  temp  >10 

temp2  =  STR(temp) 

comments  =  'INCREASED  RATIO  IS  '  +  LTRIM (temp2)  + 
DO  printact 
SELECT  1 
comments  =  '  ' 

DO  printact 
Line  =  Line  +  1 
num  =  num  +1 
SKIP  1 
LOOP 
ENDIF 
ENDIF 
ENDIF 
SELECT  1 
SKIP  1 
ENDDO 

Line  =  Line  +  2 
? 

?  'THE  TOTAL  NUMBER  OF  ACTIVITIES  FOUND  =  '  +  STR(num, 3) 
*DO  TOTOP 
DO  close£il 
RETURN 

*:  EOF:  REPV.PRG 
AZ 


'  PERCENT' 
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SELECT  1 
GOTO  TOP 
SELECT  2 
GOTO  TOP 
★ 

STORE  SPACE (10)  TO  wakey 
STORE  0  TO  Line, num, page 
STORE  '6'  TO  rptl 
STORE  '1'  TO  rpt2 
DO  tifclel 
Line  «  Line  +  1 


STORE  0  TO  temp 
SELECT  1 

DO  WHILE  .HOT.  EOF() 

STORE  act  TO  wakey 
STORE  a*  TO  waafc 
STORE  af  TO  wsaf 
STORE  pet  TO  W8pct 
SELECT  2 
FIND  swakey 
IF  .NOT.  EOF () 

* 

**  CHANGE  OF  PROGRESS 
★ 
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IF  pet  >  0  .AND.  pet  <>  wspet 
IF  pet  <  wspet 

comments  =  ' ***  CURRENT  PCT  LESS  THAN  PREVIOUS  PCT’ 

ELSE 

comments  =  '  ' 

ENDIF 

DO  printact 
SELECT  1 
comments  =  '  ' 

DO  printact 
Line  =  Line  +  I 
num  =  num  +1 
SKIP  1 
LOOP 
ENDIF 

IF  DTOC(af)  <>  DTOC(wsaf)  .OR.  DTOC(as)  <>  DTOC(wsas)  .AND.  pet  >  0 
DO  printact 
SELECT  1 
DO  printact 
Line  =  Line  +  1 
num  =  num  +1 
SKIP  1 
LOOP 
ENDIF 
ENDIF 
SELECT  1 
SKIP  1 
ENDDO 
* 

Line  =  Line  +  2 
? 

?  'THE  TOTAL  NUMBER  OF' ACTIVITIES  FOUND  =  '+STR(num,  3) 

*DO  TOTOP 
DO  closefil 
RETURN 

*:  EOF:  REPW.PRG 


* • ***************** ***************************************************** 


* 


*:  Program:  REPX.PRG 

*  i 

*:  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CKRL 

*:  Copyright  (o)  1989,  USA-CERL/ASC/RCE 

*:  Laat  modified:  04/26/89  22:44 

*• 


* 

* 


Callad  by:  MAINX.PRG 


* 

a 

* 

* 

* 


Calls:  OPENFILS  (procadura  in  PROCS.PRG) 

:  TITLE1.PRG 
:  PRINTPRE.PRG 

:  CLOSEFIL  (procedure  in  PROCS.PRG) 


*:  Documented  04/27/89  at  10:40  SNAP!  version  3.12# 

* • ********************************************************************* 


DO  openfils 
* 


**  INITIALIZE  AND  PRINT  TITLE 
* 


CLEAR 

0  10,10  SAY  "RUNNING  REPORT  X  —  FIND  LOGIC  CHANGES" 


SELECT  1 
GOTO  TOP 
SELECT  2 
GOTO  TOP 
SELECT  5 
GOTO  TOP 
SELECT  6 
GOTO  TOP 
* 

PUBLIC  we  act 1 , wssucl , printy , recnum 

STORE  SPACE  (10)  TO  wsact.wssua 

STORE  SPACE (12)  TO  wsactl, wssucl 

STORE  0  TO  Line, num, page, printy, recnum, rectemp 

STORE  '7'  TO  rptl 

DO  titlel 

Lino  *■  Lin#  -  1 

* 

SELECT  2 

DO  WHILE  .NOT.  E0F() 
recnum  »  RECNO() 
printy  *»  0 
STORE  act  TO  wsact 
wsactl  *  ' Jv  *f  act  +  'A1 
* 

**  CHECK  IF  THE  ACTIVITY  EXISTES  IN  PREVIOUS  FILE 
* 

SELECT  1 
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St  THIS  IS  A  NEW  ACTIVITY  IN  CURRENT  FILE 


FIND  twaact 
IF  EOF  () 

SELECT  2 

SKIP  1  tt  SKIP  THIS  ACTIVITY 

LOOP 
ENDIF 
* 

**  COMPARE  RELATION  IN  BOTH  FILES 
* 

SELECT  6 
FIND  twaact 
IF  .NOT.  EOF  () 

DO  WHILE  act  =  SUBSTR (waactl, 2, 10) 

STORE  sue  TO  wssuc 
wssucl  =  'B'  +  sue  +  'B' 
wsactsuc-  act  +  sue 
STORE  lag  TO  wslag 
STORE  rol  TO  warel 

•k 

SELECT  5 
FIND  twsactsuc 
IF  EOF ( ) 

Line  =  Line  +1  St  RELATION  ADDED  IN  CURRENT  LOGIC 

SELECT  2 

FIND  twaact 

DO  printpre 

FIND  twsauc 

??  "  "+act+"  "+TITLE 

SELECT  1 

FIND  twuauc 

IF  EOF  () 

SELECT  6 

??  rel+STR(lag, 6)+"  SUCCESSOR  IS  NEW  ACTIVITY" 

SELECT  1 
FIND  twaact 
DO  printpre 
ELSE 

SELECT  6 

??  relHSTR(lag,  6)+"  RELATION  ADDED" 

SELECT  1 
FIND  twaact 
DO  printpre 
SELECT  1 
FIND  twaauc 
??  "  "+act+"  "+TITLE 
ENDIF 
* 

ELSE  S£  SUCCESOP.  EXISTS,  CHECK  FOR 

DO  CASE  St  RELATION  OR  LAG  CHANGED 

CASE  rel  <>  wsrel 
SELECT  5 

rocterap  =  RECNO() 
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GOTO  RECtJO()  +  1 

IF  act  »  SUBSTR(waactl, 2, 10)  .AND.  auo  ■  SUBSTR(waaaal,  2, 10)  .AND.  ral  *  waral 
IF  lag-  <>  walag 

Lina  -  Lina  +  1  it  CHECK  FOR  MULTIPLE  RELATIONS 

SELECT  2 

FIND  twaaot 

DO  printpra 

FIND  twaauc 

??  »  "+act+"  "+TITLE 

SELECT  6 

??  ral+STR(lag,  6)+"  LAG  CHANGED" 

SELECT  1 

FIND  twaact 

DO  printpra 

FIND  Swsauc 

??  »  "+act+"  "+TITLE 

SELECT  5 

??  ral+STR(lag,  6) 

ENDIF 
SELECT  6 
SKIP 
LOOP 
ENDIF 

GOTO  ractamp 
* 

Lina  «  Lina  +  1 

SELECT  2 

FIND  twaact 

DO  printpra 

FIND  Cwaauc 

??  "  "+act+"  "+TITLE 

SELECT  6 

??  ral+STR(lag,  6)+"  RELATION  CHANGED" 

* 

SELECT  1 

FIND  Swaact 

DO  printpra 

FIND  fiwcauc 

??  "  "+act+"  "+TITLE 

SELECT  5 

??  ral+STR(lag,  6) 

* 

CASE  lag  <>  walag 
Lina  ■=  Line  +  1 
SELECT  2 
FIND  Cwaact 
DO  printpra 
FIND 

??  "  "+act+"  "+TITLE 
SELECT  6 

??  rel+STR(l»g, 6)+"  LAG  CHANGED" 

* 
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SELECT  1 
FIND  twsaot 
DO  printpra 
FIND  £wssuc 
??  "  "+act+"  "+TITLE 
SELECT  5 

??  rel+STR(lag,  6) 

* 

ENCASE 
ENDIF 
SELECT  6 
SKIP 
LOOP 
ENDDO 
ENDIF 
★ 

SELECT  5 
FIND  £wsact 
IF  .NOT.  EOF () 

DO  WHILE  act  =  SUBSTR (wsactl ,2,10) 

STORE  sue  TO  wssuc 
wsactsuc=  act  +  sue 
SELECT  6 
FIND  (wsactsuc 
IF  EOF  0 
SELECT  2 
FIND  (wssuc 
IF  EOF  () 

Line  =  Line  +  1 
SELECT  2 
FIND  £wsact 
DO  printpre 
SELECT  1 
FIND  twsact 
DO  printpre 
FIND  fiwssuc 
??  "  "+act+"  "+TITLE 
SELECT  5 

?*  ral+STR (lag,  6)  +"  SUCCESSOR  IS  DELETED  ACTIVITY" 
ELSE 

Lina  =  Lina  +  1 

SELECT  2 

FIND  Swsact 

DO  printpra 

FIND  (wssuc 

??  "  "+act+"  "+TITLE 

SELECT  6 

??  rel+STR(lag,  6)+"  RELATION  DELETED" 

* 

SELECT  1 
FIND  Swsact 
DO  printpre 


££  IF  SUCCESSOR  DOES  NOT  EXIST 
££  IN  CURRENT  FILE,  THE  SUCCESSOR 
fi£  IS  DELE LED  IN  CURRENT  FILE 
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FIND  Cwaauc 

??  "  "+aot+"  “+TITLE 

SELECT  5 

??  ral+STR(lag,  6) 

ENDIF 
ENDIF 
SELECT  S 
SKIP 
LOOP 
ENDDO 
ENDIF 
* 

SELECT  2 
GOTO  racnum 
SKIP 
LOOP 
ENDDO 

Lina  *=  Lina  +  2 

j 

?  '**  END  OF  LOGIC  COMPARISON  **' 

DO  cloaafil 

RETURN 

*:  EOF:  REPX.PRG 

Az 
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********** *************************** ******************************** 


Program:  QUIT. PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/20/89  14:51 

Called  by:  REPN1.PRG 

:  KEYPRESS. PRG 

Documented  04/27/89  at  10:40 


SNAP!  version  3.12e 


* ■ ********************************************************************* 


**  QUIT. PRG  -  Clean  up  all  files,  Quit  Pro-Man; 

SET  COLOR  TO  tmonucol 
CLEAR 
CLOSE  ALL 
CLEAR  ALL 

*  Erase  all  Pro-Man  .NDX  files  (but  don't  use  DOS  wildcard) 

SET  CONSOLE  OFF 

SET  TALK  OFF 

SET  ECHO  OFF 

SET  SAFETY  OFF 

IF  FILE (' pssr_act . ndx' ) 

ERASE  psar_act.ndx 
ENDIF 

IF  FILE ('schd_act. ndx') 

ERASE  schd_act.ndx 
ENDIF 

IF  FILE (' oubm_nas. ndx' ) 

ERASE  subm_nas.ndx 
ENDIF 

IF  FILE (' tempndx. ndx' ) 

ERASE  tempndx. ndx 
ENDIF 

IF  FILE (' schd_str . ndx' ) 

ERASE  6chd_ctn.ndx 
ENDIF 

II:  FILE (' schd_seq. ndx' ) 

ERASE  8chd_seq.ndx 
ENDIF 

IF  FILE  (' sch2_act .  ndx' ) 

ERASE  sch2_act . ndx 
ENDIF 

IF  FILE  (' schl_act  .ndx' ) 

ERASE  schl_act.ndx 
ENDIF 

IF  FILE ( ' succ_ndx . ndx ' ) 

ERASE  eucc_ndx.ndx 
ENDIF 

IF  FILE ('mrgndx. ndx') 
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ERASE  mrgndx . ndx 
ENDI7 

IF  FILE ('«chd_a«q. ndx') 

ERASE  a c.id  _s«q .  ndx 
ENDIF 

*05,10  SAY  'NOW  EXITING  PROMAN' 

SET  COLOR  TO 

QUIT 

*:  EOF:  QUIT.PRG 
AZ 


****************  *********!»********  ************************************ 


Progr*'..:  REPN.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/05/89  0:01 

Called  by:  REPN1.PRG 


(procedure  in  PROCS.PRG) 
(procedure  in  PROCS.PRG) 
(procedure  in  PROCS.PRG) 
(procedure  in  PROCS.PRG) 


Calls:  ACTST 
:  CODEST 
:  PRECST 
:  PROGST 

Uses:  DATAEXCH . DBF 
:  4ASCIIFILE 
:  SCHDINFO.DBF 
:  SSCHDFIL 
:  SUCINFO.  DBF 
:  £ SUCFIL 

Indexes:  TEMPNDX.NDX 


Documented  04/27/89  at  10:40  SNAP!  version  3.12e 

********************************************************************* 


SET  BELL  OFF 
SET  TALK  OFF 
CLEAR 

0  10,10  SAX  '****  CONVERTING  '+  asciifile+'  TO  DATABASE  FORMAT  ****' 
*  Begin  taking  data  from  asciifile 


SELECT  F  ££  Set  up  for  reading  of  Data  Exchange  Standard  into  fields 

USE  dataoxch  £S  dataexch.DBF 

ZAP 

APPEND  FROM  Casciifile  SDF 
SELECT  G 

Croa  Sschdfil  FROM  schdinfo 
SELECT  H 

Crea  Ssucfll  FROM  sucinfo 


SELECT  F 
GO  TOP 

DO  WHILE  .NOT.  EOF() 

IF  SUBSTR (ALL, 1 , 4) =' PROJ'  S£  1  required  record  in  file 

dataaace=SUUSTK (ALL, 6, I) 
pro jid=SUB3TR (ALL, 14, 4) 
pro jname=SUBSTR (ALL, 20, 48) 
contraname=SUBSTR (ALL, 69, 36) 
arrow_prec=SUBSTR  (ALL,  106, 1) 
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pro j_uaerd*SUBSTR (ALL, 108 , 35) 
ENDIF 

SKI? 


N=1 

00  WHILE  SUBSTR(ALL,1, 4)='CLDR' .AND.N<6 
cal#ncoie4n=SUBSTR (ALL,  6,  4) 
workdaya4n=SUnSTR(ALL,ll,  7) 
calcndacr4n=SUBSTR (ALL,  19,30) 

SKIP 

N*N+1 

ENDDO 


44  1  required  £  >«=1  optional  records 


SKIP 


IP  SUBSTR  (ALL,  1,  4)  <*'  HOLI' 

hcalenoodeosuBSTR (ALL, 6, 4) 

Mel 

m=ll 

DO  WHILE  N<14  £fi  Up  to 

holiday 4n=S0BSTR (ALL,  m,  7) 
N=N+1 
m=m+8 

IF  holidaycne'  ' 

EXIT 

EHDIF 

ENDDO 

ENDIF 

SKIP 

DO  WHILE  SUBSTR (ALL, 1, 4) e'ACTV' 
activ_id  =  SUBSTR  (ALL,  6,10) 
aotiv_daor  =  SOBSTR (ALL, 17, 50) 
nctiv_dur  ■  SUBSTR(ALL, 68. 3) 
aotiv_cost  *  SOBSTR  (ALL,  72,8) 

IF  SOBSTR  (ALL,  81,  7)  O'  ' 

etart_net  =  SOBSTR (ALL, 81, 7) 

ENDIF 

IF  SOBSTR  (ALL,  89,7)0'  ' 
finiah_nlt  =  SOBSTR  (ALL,  89,  7) 
ENDIF 

IF  SOBSTR  (ALL,  97,8)0'  ' 
Unitprice  =  SUBSTR (ALL, 97,  8) 
ENDIF 

IF  SUBSTR  (ALL,  106,  7)  O'  ' 

©otl  units  a  srrocfpo  /jut  ■*  r*r 
ENDIF 

IF  SOBSTR  (ALL,  114,  4)  O'  ' 
unit_dscr  =  SOBSTR (ALL, 114, 4) 
ENDIF 


44  1  required  record 


14  holiday* 


4£  Strip  of f  all  Activity  data 
44  4  required  fielda 


£4  6  optional  fielda 
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I Jf  SUBSTR(ALL,  119,  4)0'  ' 

acalencode  =  SUBSTR (ALL, 119, 4) 

ENDIF 
DO  act st 
SKIP 

ENDDO 

SELECT  G 

INDEX  ON  act  TO  tempndx 

SELECT  F 

DO  WHILE  (  (SUBSTR  (ALL,  1,  4)='C0DE'  )  .AND.  (.NOT.  EOF())) 
actlv_id  =  SUBSTR  (ALL,  6, 10) 
reeponsibl  =  SUBSTR (ALL, 17, 4) 
modnum  =  SUBSTR(ALL, 22, 5) 
workarea  =  SUBSTR (ALL, 28, 4) 
hamact  =  SUBSTR (ALL, 33, 1) 
breakdwn  =  SUBSTR (ALL,  35, 12) 
weathers  *  SUBSTR (ALL, 48, 1) 
act_type  =  SUBSTR (ALL, 50,  4) 
spec  =  SUBSTR (ALL, 55, 3) 

build  =  SUBSTR(ALL, 64, 7) 

calcd  =  SUBSTR(ALL, 72,  4) 

usrdcode  =  SUBSTR (ALL, 77, 56) 

DO  codest 
SKIP  +  1 

ENDDO 

DO  WHILE  (  (SUBSTR  (ALL,  1,  4)  =  '  LIBR'  )  .AND.  (.NOT.  EOF())) 

rosid  =  SUBSTR  (ALL,  6,  4) 

deocr  =  SUBSTR(ALL, 11, 30) 

unitpr  =  SUBSTR(ALL,  42,  8) 

unitdas  =  SUBSTR (ALL,  51,  4) 
toteurquan  =  SUBSTR  (ALL,  56,  7) 
quanperiod  =  SUBSTR (ALL,  64, 7) 
quantodate  =  SUBSTR (ALL, 72,  7) 
stdato  =  SUBSTR(ALL,  80, 7) 

enddate  a  SUBSTR(ALL, 88,  7) 

SKIP  +  1 

ENDDO 

DO  WHILE  ( (SUBSTR  (ALL,  1,  4) =' RESC' )  .AND.  (.NOT.  EOF())) 
actidres  =  SUBSTR (ALL, 6, 10) 
residres  =  SUBSTR (ALL, 17,  4) 
quanid  =  SUBSTR (ALL, 23, 1) 
estquan  =  SUBSTR (ALL, 25, 5) 
quanperres  =  SUBSTR (ALL,  31, 7) 
quandter es  —  SUBSTP.(ALL,  39,  7) 

SKIP  +  1 

ENDDO 

DO  WHILE  ((SUBSTR (ALL,  1,4)  =  'PREC')  .AND.  (.NOT.  EOF())) 
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accidpr  »  SUBSIR (6, 10) 

aucact  -  SUBSTR (17, .10) 

auctype  *  SUBSTR(28,1) 

lagamt  »  SUBSTR (ALL, 30, 3) 

DO  precat. 

SKIP  +  1 
ENDDO 

DO  WHILE  ( (SUBSTR (ALL,  1,  4)  -  'PROG')  .AND.  (.NOT.  EOS' .()  ) ) 


actidprog 

-  SUBSTR (ALL,  6,10) 

acbat 

«  SUBSTR (ALL, 17, 7) 

actf 

=  SUBSTR (ALL, 25, 7) 

remdur 

=  SUBSTR  (ALL,  33,  3) 

earned 

=  SUBSTR (ALL, 37,3) 

unitper 

»  SUBSTR  (ALL,  41,7) 

unltdate 

■  SUBSTR  (ALL,  49,  7) 

DO  progat 

SKIP  +  1 

ENDDO 

ENDDO 

*:  EOF:  REPN.PRG 
AZ 
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*  »  ***************************  *  ********** ********* ********************** 


★ 

* 

* 

* 

* 

* 

* 

* 

* 

* 


Program:  GETSCHED.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/1G/89  14:11 


Called  by:  MENUTHRE . PRG 


*:  Documented  04/27/89  at  10:40  SNAP!  version  3.12e 

*********************************************************************** 


**  GETSCHED.PRG  -  Prompt  user  for  filenames  for  SCHEDULE. DBF  £  SUCCESOR.DBF 

SET  COLOR  TO 

CLEAR 

@0,5  SAY  'Input  the  entire  filename,  including  filename  extension  if  present,  of' 

@1,5  SAY  'the  Schedule  "SCHEDULE. DBF"  file  to  be  compared  against  PSSR  and/or' 

@2,5  SAY  'Submittal  files.  In  order  to  run  Reports  which  require  the  Schedule  data,' 

@3,5  SAY  'a  filename  MUST  be  "  ‘'ere.  {This  file  is  generated  as  a  .DBF  export' 

@4,5  SAY  'file  from  Primavera,  using  Export  File  Report  EX-01.  For  more  specific' 

@5,5  SAY  'information  about  the  necessary  format  for  this  file,  please  refer  to' 

@6,5  SAY  'the  PROMAN  User  Manual.)' 

DO  WHILE  .T. 

filsched  =  filsched  +  "  " 

@8,1  SAY  'INPUT  SCHEDULE  "Schedule"  FILENAME:  '  GET  filsched  PICTURE  '@S50@!' 

@9,0  CLEAR 
READ 

filsched=LTRIM (RTRIM (filsched) ) 

IF  FILE (filsched) 

@9,15  SAY  'VALID  FILENAME' 

EXIT 

ELSE 

SET  COLOR  TO  Serrcol 

@9,15  SAY  'CANNOT  FIND  THIS  FILENAME  -  WOULD  YOU  LIKE  TO:' 

SET  COLOR  TO 

@10,5  SAY  '  1)  QUIT  THIS  PROCESS  AND  RETURN  TO  THE  MENU?' 

ch=2 

@11,5  SAY  '  2)  INPUT  AN  ALTERNATE  FILENAME?  SELECT  1  OR  2  :  'GET  ch  PICTURE  '9' 

READ 

IF  ch=l 

option  =  0 
RETURN 
ENDIF 
END  IF 
ENDDO 


@12,5  SAY  'Next,  input  the  entire  filename,  including  filename  extension  if  present,' 
‘12,3  SAY  'of  the  Schedule  "SUCCESSOR"  Dfcece  file  to  bo  compared  against  PSSR  and/or' 
@14,5  SAY  'Submittal  files.  In  order  to  run  Reports  which  require  the  Schedule  data,1 
@15,5  SAY  'a  filename  MUST  be  input  here.  (This  file  is  generated  as  a  .DBF  export' 
316,5  SAY  'file  from  Primavera,  using  Export  File  Report  EX-02.  For  more  specific' 
@17, S  SAY  'information  about  the  necessary  format  for  this  file,  please  refer  to' 
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018,s  SAY  ' tha  PROMAN  U»«r  M*nu*l.)' 

DO  WHILE  . T . 

fil*ucce*  «  fil*ucc«*  +  "  " 

020,1  SAY  'INPUT  SCHEDULE  "Suoo«*«or"  FILENAME:  '  GET  fll«UOO««  PICTURE  ’0S5O0!' 

@21,0  CLEAR 

READ 

f 11 succe a-LTRIM {RTRIM (fil«ucc*») ) 

IF  fil*ucc«*=fll*ch*d 
SET  COLOR  TO  tarrcol 

021,15  SAY  'THIS  FILENAME  IS  THE  SAME  AS  YOUR  "Schedule"  FILENAME  INPUT  ABOVE' 

SET  COLOR  TO 
@22,15  SAY  'RE-INPUT' 

WAIT 

LOOP 

ENDIF 

IF  FILE (fil«ucc«c) 

021,15  SAY  'VALID  FILENAME' 

022,0 

WAIT 

EXIT 

ELSE 

SET  COLOR  TO  Serrcol 

021,15  SAY  'CANNOT  FIND  THIS  FILENAME  -  WOULD  YOU  LIKE  TO:' 

SET  COLOR  TO 

022,5  SAY  '  1)  QUIT  THIS  PROCESS  AND  RETURN  TO  THE  MENU?' 

ch=2 

023,5  SAY  '  2)  INPUT  ALTERNATE  FILENAME?  SELECT  1  OR  2  :  'GET  ch  PICTURE  '9' 

READ 
IF  ch=l 
option  *  0 
RETURN 
ENDIF 
ENDIF 
ENDDO 
RETURN 

*:  EOF:  GETSCHED . PRG 
AZ 
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*  . ****************************************************** *************** 

*  • 

*:  Program:  SCHEDULE. PRG 

*  ; 

*:  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (o)  1985,  USA-CERL/ASC/RCE 

*:  Last  modified:  04/27/89  1:12 

*  ; 

*:  Called  by:  MENUTHRE . PRG 

*  J 

*:  Uses:  (FILSCHED 

* ;  :  SCHETEMP . DBF 

*:  ;  (FILSCHED . DBF 

*:  :  FILELIST . DBF 

*  ; 

*:  Indexes:  SCHD_ACT.NDX 

*  ; 

*:  Documented  04/27/89  at  10:40  SNAP!  version  3.12e 

*;********************************************************************* 

**  SCHEDULE. PRG  -  Process  and  clean  up  SCHEDULE. DBF,  the  main  Primavera  export 
CLEAR 

05,25  SAY  'PROCESSING  SCHEDULE  FILE' 

06,22  SAY  "PLEASE  DON'T  TOUCH  KEYBOARD" 

SELECT  D 

filsched  =  UPPER (filsched) 
filsucces  =  UPPER (filsucces) 

USE  (filsched 

IF  TYPE ( "MH_DAY" )  <>  "U" 

CLEAR 

0  10,10  SAY  "The  file  ' "+TRIM (filsched) +"'  has  been  processed  already." 

0  12,10  SAY  "Processing  of  this  schedule  and  the  associated  successor" 

0  13,10  SAY  "file,  ' "+TRIM( filsucces) +"'  will  not  be  performed." 

0  15,10  SAY  "  " 

WAIT 

option  =  0 
RETURN 
ENDIF 
USE 

SELECT  A 
USE  schetemp 
ZAP 

APPEND  FROM  (filsched 

ERASE  schd_act . ndx 

INDEX  ON  act  TO  schd_act 

GOTO  TOP 

SET  DELETE  ON 

N=0 

manhrs=0 

dollars=0 

mact  =  "ZZZZZZZZZZ" 

DO  WHILE  .NOT.  EOF() 
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IF  mact  <>  act 

IF  TRIM (rut)  ■  '$'  .AND.  upd  <>  0.00  ££  Move  Dollar# 

REPLACE  dol_day  WITH  upd 
ELSE 

IF  TRIM (rut)  -  'MH'  .AND.  upd  <>  0.00  ££  Move  Man  Hour# 

REPLACE  rah_day  WITH  upd 
ENDIF 
ENDIF 
mact  =  act 
SKIP 
ELSE 

IF  TRIM (rut)  =  '$'  .OR.  TRIM (rut)  =  'MH' 
mrut  **  TRIM (rut) 
mupd  *  upd 
DELETE 
SKIP  -1 

IF  mrut  =  '$'  .AND.  mupd  <>  0.00 
REPLACE  dol_day  WITH  mupd 
ELSE 

IF  mrut  ■=  'MH' 

REPLACE  mh_day  WITH  mupd 
ENDIF 
ENDIF 
SKIP 
ELSE 
DELETE 
SKIP 
ENDIF 
ENDIF 
EHDDO 
PACK 

SET  DELETE  OFF 
GOTO  TOP 

DO  WHILE  .NOT.  EOF() 

N  «=  N  +  1 
IF  dol_day  >  0.00 

dollars  *  dollars  +  1 
ENDIF 

IF  mh_day  >  0.00 
manhrs  <=  manhrs  +1 
ENDIF 
SKIP 
ENDDO 

ERASE  Sfllschod 
GOTO  TOP 

COPY  ALL  TO  £filschad 
GOTO  TOP 
DELETE  ALL 
PACK 
? 

?  STR (manhrs, 7)+'  Activities  require  some  level  of  Man-Hours.’ 
?  STR  (dollars, 7) +  '  Activities  require  some  level  of  Dollar#.' 
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?  STR (N, 7) +'  Activities  are  included  in  the  schedule  database.' 
■> 

sched_done*».  T. 

*  start  o£  filelist  update 
SELECT  A 

USE 

USE  filelist 
GOTO  TOP 

REPLACE  schedule  WITH  filsched 
REPLACE  successor  WITH  filsucces 
USE 

SELECT  D 
USE  Sfilsched 

*  end  of  filelist  update 
RETURN 

*:  EOF:  SCHEDULE. PRG 
AZ 
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*; *********************************************** ************** ******** 

*; 

*;  Program:  GETSUBMI. PRG 

★  ; 

*J  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (c)  1989,  USA-CERL/ASC/RCE 

*:  Last  modified:  04/15/89  14:18 

*  • 

*:  Called  by:  MENUTHRE.PRG 

*; 

*:  Documented  04/27/89  at  10:40  SNAP!  version  3.12e 

*  .  ***********  *******  ****************  **************************  ***  ****** 

**  GETSUBMI , PRS  -  Prompt  user  for  filename  for  submittal  file 
CLEAR 

81,5  SAY  'Input  the  entire  filename,  including  filename  extension  if  present,  of' 

@2,5  SAY  'the  Submittal  Dbase  file  to  be  compared  against  Schedule  and/or' 

@3,5  SAY  ' PSSR  files.  In  order  to  run  Reports  which  require  the  Submittal  data,' 

@4,5  SAY  'a  filename  MUST  be  input  here.  (For  specific  information  about  the' 

@5,5  SAY  'necessary  format  for  this  file,  please  refer  to  the  PROMAN  User  Manual.)' 

DO  WHILE  .T. 

filsubmi  =  filsubmi  +  "  " 

@7,1  SAY  'INPUT  SUBMITTAL  FILENAME:  '  GET  filsubmi  PICTURE  '@S50@|' 

@8,0  CLEAR 
READ 

filsubmi=LTRIM(RTRIM (filsubmi) ) 

IF  FILE (filsubmi) 

09,15  SAY  'VALID  FILENAME' 

@10,0 

WAIT 

EXIT 

ELSE 

SET  COLOR  TO  Serrcol 

@9,15  SAY  'CANNOT  FIND  THIS  FILENAME  -  WOULD  YOU  LIKE  TO:' 

SET  COLOR  TO 

@10,5  SAY  '  1)  QUIT  THIS  PROCESS  AND  RETURN  TO  THE  MENU?' 

ch=2 

@11,5  SAY  '  2)  INPUT  AN  ALTERNATE  FILENAME?  SELECT  1  OR  2  :  'GET  ch  PICTURE  '9' 

READ 
IF  ch=l 
option  =  0 
RETURN 
ENDIF 
ENDIF 
ENDDO 
RETURN 

*:  EOF:  GETSUBMI. PRG 
AZ 
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* • ********************************************************************* 


Program:  SUBMIT. PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/27/89  1:13 

Called  by:  MENUTHRE.PRG 

Uses:  £FILSUBMI 

:  FILELIST.DBF 

Documented  04/27/89  at  10:40  SNAP!  version  3.12e 

********************************************************************* 


**  SUBMIT. PRG  -  Process  submittal  file  (filename  user's  choice) 

SET  COLOR  TO  textracol 

CLEAR 

62,20  SAY  'PROCESSING  SUBMITTAL  FILE . ' 

03, 25  SAY  "PLEASE  DON'T  TOUCH  KEYBOARD" 

SELECT  E 

USE  tfilsubmi  ££  Process  submittal  data 
DO  WHILE  .NOT.  EOF() 

IF  SUBSTR(nas,S,l)*=' .' 

REPL  nas  WITH  TRIM(SUBSTR(nas, 1, 4) +SUBSTR (nas, 6, 7) ) 

ENDIF 

SKIP 

ENDDO 

submi_done= . T . 

SET  COLOR  TO  Smenucol 
*  start  of  file  list  update 
SELECT  A 
USE 

USE  filelist 
GOTO  TOP 

REPLACE  submittal  WITH  filsubmi 
USE 

SELECT  E 

*end  of  filelist  update 
RETURN 

*:  EOF:  SUBMIT. PRG 
AZ 
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*  •  *“*★**★*  ****************  *******  *****  *  A**  **  **********  ****************** 

* : 

*:  Program:  GETPSSR.PRG 

*  ; 

*;  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CKRL 

*:  Copyright  (c)  1989,  USA-CERL/ASC/RCE 

*:  Last  modified:  04/16/89  14:16 

* : 

*:  Called  by:  MENUTHRE . PRG 

* : 

*:  Documented  04/27/89  at  10:40  SNAPI  veraion  3.12a 

A;********************************************************************* 

**  GETPSSR.PRG  -  Gat  uaar'a  filenames  for  PSSR_PR  £  PSSR_SC  ASCII  filaa 
*  Mark  McRaynolda,  1/3/88 
SET  COLOR  TO 
CLEAR 

31.5  SAY  'Input  the  entire  filename,  including  filename  extension  if  present,  of' 

32.5  SAY  'the  PSSR  "Procurement"  ASCII  file  to  be  compared  against  Schedule  and/or' 

33.5  SAY  'Submittal  files.  In  order  to  run  Reports  which  require  the  PSSR  data,' 

34.5  SAY  'a  filename  MUST  be  input  hare.  (For  specific  information  about  the' 

35.5  SAY  'necessary  format  for  this  file,  please  refer  to  the  PROMAN  User  Manual.)' 

DO  WHILE  . T. 

filpssr_pr  *  filpssr_pr  +  "  " 

87,1  SAY  'INPUT  PSSR  "Procurement"  FILENAME:  '  GET  filpaar_jpr  PICTURE  '3S503I' 

88,0  CLEAR 
READ 

filpsar_pr»LTRIM(RTRIM(filpsar_pr)) 

IF  FILE (filpsarjpr) 

39,15  SAY  'VALID  FILENAME' 

EXIT 

ELSE 

SET  COLOR  TO  Serrcol 

39,15  SAY  'CANNOT  FIND  THIS  FILENAME  -  WOULD  YOU  LIKE  TO:' 

SET  COLOR  TO 

310.5  SAY  '  1)  QUIT  THIS  PROCESS  AND  RETURN  TO  THE  MENU?' 

ch=2 

811.5  SAY  '  2)  INPUT  AN  ALTERNATE  FILENAME?  SELECT  1  OR  2  :  'GET  ch  PICTURE  '9' 

READ 

IF  ch=l 

option  =*  0 
RETURN 
2HDIF 
ENDIF 
ENDDO 

011,5  SAY  'Input  a  PSSR  "Subcontract"  ASCII  file?  ’  GET  sc_exist  PICTURE  'Y' 

READ 

IF  sc_exist 

314.5  SAY  'Input  the  entire  filename,  including  filename  extension  if  present,  of' 

315.5  SAY  'the  PSSR  "Subcontract"  ASCII  file  to  be  compared  against  Schedule  and/or' 

316.5  SAY  'Submittal  files.  (For  specific  information  about  the  necessary  format  for' 
017,5  SAY  'this  file,  please  refer  to  the  PROMAN  User  Manual.)' 
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DO  WHILE  .T. 

filpssr_sc  =  filpa«r_sc  +  "  " 

Q19, 1  SAY  'INPUT  PSSR  "Subcontract"  FILENAME:  '  GET  filpsar_sc  PICTURE  '0S5O0!' 

020,0  CLEAR 

READ 

filpssr_sc=LTRIM(RTRIM(filpa*r_sc) ) 

IF  filps*r_«c=filpssr_pr 
SET  COLOR  TO  Serrcol 

020,15  SAY  'THIS  FILENAME  IS  THE  SAME  AS  YOUR  "Procurement"  PSSR  FILENAME.' 

021,15  SAY  'INPUT  AGAIN.' 

SET  COLOR  TO 
LOOP 
ENDIF 

IF  FILE (filpssr_ac) 

020,15  SAY  'VALID  FILENAME' 

021,0 

WAIT 

EXIT 

ELSE 

SET  COLOR  TO  serrcol 

020,15  SAY  'CANNOT  FIND  THIS  FILENAME  -  WOULD  YOU  LIKE  TO: ' 

SET  COLOR  TO 

021,5  SAY  '  1)  QUIT  THIS  PROCESS  AND  RETURN  TO  THE  MENU?' 

ch=2 

022,5  SAY  '  2)  INPUT  ALTERNATE  FILENAME?  SELECT  1  OR  2  :  'GET  ch  PICTURE  '9' 

READ 

IF  ch=l 

option  =  0 
RETURN 
ENDIF 
ENDIF 
ENDDO 
ENDIF 
RETURN 

*:  EOF:  GETPSSR.PRG 
-Z 
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★ • a******************************************************************** 


* 

k 

k 

k 

k 

k 

k 

* 

★ 

★ 

k 

★ 

★ 

* 

k 

k 


Program:  PSSR.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL /ASC/RCE 
Last  modified:  04/27/89  1:22 

Called  by:  MENUTHRE . PRG 

Oses:  PSSR_PR. DBF 
:  AA. DBF 
:  £FILPSSR_PR 
:  PSSR_SC.DBF 
:  £FILPSSR_SC 
:  FILELIST.DBF 


* 


Documented  04/27/89  at  10:40 


SNAP!  version  3.12e 


* 


*  *  k  k  k  ★  irk  k  irk  k  k  kirk  k  ★  k  k  k  k  irk  k  irk  k  irk  t  ‘kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


**  PSSR.PRG  -  Creates  PSSR_PR.DBF  from  PSSRS .ART  {or  user's  choice)  ASCII 
*  file,  and  PSSR_SC.DBF  from  PSSRR. ART  (or  user's  choice)  ASCII  file,  merges 
SET  COLOR  TO  toutputcol 
CLEAR 

05,9  SAY  'CONVERTING  PSSR  "Procurement"  FILE  FROM  ASCII  TO  DBASE  FORMAT' 

06,25  SAY  "PLEASE  DON'T  TOUCH  KEYBOARD" 

SELECT  B 
USE  psarjpr 
ZAP 

SELECT  A 
USE  aa 
ZAP 

APPEND  FROM  £filpssrjpr  SDF 
GO  TOP 

mprropdato-SPAGE (13) 
mprroptime=SPACE (5) 
mprrepjob=SPACE (6) 
mp.-ondper=SPACE  (8) 

SKIP  7 

IF  SUBSTR (ALL, 120, 1) $'  0123456789' 

mprrepdato=SUBSTR(ALL, 120, 7)  ££  Get  the  date  report  was  printed 
mprreptime=SUBSTR(ALL, 128, 5)  ££  Get  the  time  report  was  printed 
ENDIF 
SKIP  2 

IF  SUBSTR  (ALL  1,3)=' JOB' 

mprrepjob=SUBSTR (ALL, 4, 6)  £4  Get  the  report  job  number 

ENDIF 
SKIP  2 


IF  SUBSTR(ALL,  119,  6)=' ENDING'  .AND.  SUBSTR  (ALL,  126, 1)  $'  0123456789' 

:nprendper=SUBSTR(ALL,  126,  7)  ££  Get  ending  period  of  these  activities 

ENDIF 
D='  ' 
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DO  WHILE  .HOT.  EOF<) 

IF  SUBSTR (ALL, 1,1)  $'0123456789' 

SELECT  E  ££  pssr_pr.dbf 

APPEND  BLANK 

SELECT  A  LL  aa.dbf 

REPL  b->activ_id  WITH  SUBSTR (ALL, 1, 12) ,b->descript  WITH  SUBSTR (ALL, 15, 42) , : 

b->schedolas«  WITH  SUBSTR (ALL, 57, 5) , b->req_no  WITH  SUBSTR (ALL, 65,5) 

REPL  b->p_o_no  WITH  SUBSTR (ALL, 73, 7) , b->vendorname  WITH  SUBSTR  (ALL,  80, 14) ,  ; 

b->remarks  WITH  SUBSTR  (ALL,  94, 33) 

SKIP 

REPL  b->advertize  WITH  SUBSTR (ALL, 18,  7) , b->reqtoproc  WITH  SUBSTR (ALL, 27, 7) , ; 

b->bids_out  WITH  SUBSTR (ALL, 36, 7) , b->bids_ln  WITH  SUBSTR (ALL, 45, 7) 

REPL  b->kebid_eval  WITH  SUBSTR (ALL, 54, 7) , b->cebid_eval  WITH  SUBSTR (ALL, 63, 7) , 
b->award_p_o  WITH  SUBSTR(ALL, 72, 7) , b->ce_submit  WITH  SUBSTR (ALL, 81, 7) 

REPL  b->ce_subm_ap  WITH  SUBSTR (ALL, 90, 7) ,b->fab_ship  WITH  SUBSTR (ALL, 99, 7) , ; 

b->arrlvosite  WITH  SUBSTR (ALL, 108, 9) ,b->required  WITH  SUBSTR (ALL, 126, 7) 

SKIP  ££  The  next  REPLACE  gets  the  WORKING  DAYS  required  for  each  activity 
REPL  b->dadvertize  WITH  SUBSTR (ALL, 22, 3) ,b->dreqtoproc  WITH  SUBSTR (ALL, 31, 3) , 
b->dbids_out  WITH  SUBSTR (ALL, 40, 3) , b->dbids_in  WITH  SUBSTR (ALL, 49, 3) 

REPL  b->dkebid_eva  WITH  SUBSTR(ALL,  58, 3) , b->dcebid_eva  WITH  SUBSTR (ALL, 67,3), 
b->dawardjp_o  WITH  SUBSTR (ALL, 76, 3) , b->dce_aubmit  WITH  SUBSTR (ALL, 85, 3) 
REPL  b->dce_subm_a  WITH  SUBSTR (ALL, 94, 3) ,b->dfab_ship  WITH  SUBSTR (ALL, 103, 3) , 
b->darrivesit  WITH  SUBSTR  (ALL, 112, 3) , b->drequlred  WITH  SUBSTR (ALL, 129, 4) 
ENDIF 
SKIP 
ENDDO 

ZAP  ££  aa.dbf 

IF  sc_exist  ££  Process  psor_sc.dbf  IF  user  has  selected  this  file. 

08,9  SAY  'CONVERTING  PSSR  "Subcontract"  FILE  FROM  ASCII  TO  DBASE  FORMAT' 

09,25  SAY  "PLEASE  DON'T  TOUCH  KEYBOARD" 

SELECT  C 
USE  pssr_sc 
ZAP 

SELECT  A  ££  aa.dbf 
APPEND  FROM  Sfilpssr_sc  SDF 
GO  TOP 

mscrepdate=SPACE  (13) 
ii!8creptime=SPACE  (5) 
mscrep job=3PACE (6) 
mscendper=SPACE  (8) 

SKIP  7 

IF  SUBSTR(ALL,  120,1)  $'0123456789' 
mscrepdate=SUBSTR (ALL, 120, 7)  ££  Get  the  date  report  was  printed 
ra8creptime=SUBSTR(ALL,128,5)  ££  Get  the  time  report  was  printed 
ENDIF 
SKIP  2 

IF  SUBSTR  (ALL,  1,3)='  JOB' 

mscrep]ob=SUBSTR (ALL, 4, 6)  ££  Get  the  report  job  number 

ENDIF 
SKIP  2 

IF  SUBSTR (ALL, 119, 6)=' ENDING'  .AND.  SUBSTR (ALL, 126, 1) $' 0123456789' 
mscendper=SUBSTR(ALL, 126, 7)  ££  Get  ending  period  of  these  activities 
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ENDZF 

DO  WHILE  .NOT.  EOF() 

IF  SOBSTR(ALL,l,l)  $'0123456789' 

SELECT  C  ££  p*»r_«c.dbf 
APPEND  BLANK 
SELECT  A 

REPL  c->actlv_id  WITH  SOBSTR (ALL, 1, 12) , c->da«cript  WITH  SOBSTR (ALL, 15, 42) , ; 

c->schedcla*»  WITH  S0BSTR(ALL,57,5)  ,c->raq_no  WITH  SOBSTR  (ALL,  65,  5) 

REPL  c->p_o_no  WITH  SOBSTR  (ALL, 73,  7) , e->vendorname  WITH  SOBSTR (ALL, 80,14) , ; 

c->remark*  WITH  SOBSTR (ALL, 94, 32) 

SKIP 

REPL  c->advertiza  WITH  SCJBSTR (ALL,  18,7),  o->pr_bid_doc  WITH  SOBSTR (ALL, 27, 7) , ; 

o->bid*_out  WITH  SOBSTR  (ALL, 36, 7) , c->bids_in  WITH  SOBSTR  (ALL,  45,  7) 

REPL  c->bid_aval  WITH  SOBSTR (ALL, 54, 7) , c->ce_approve  KITH  SOBSTR  (ALL,  63,  7)  ,  ; 

c->award_cont  WITH  SOBSTR (ALL, 72, 7) , c->mobilize_c  WITH  SUBSTR(ALL, 31, 7) 

REPL  c->requirad  WITH  SOBSTR(ALL,  126,  7) 

SKIP  ££  Th«  next  two  REPLA  command*  gat*  the  DAVS  required  for  each  activity 
REPL  c->dadvartize  WITH  SOBSTR (ALL, 22, 3) , c->dprbid_doc  WITH  SOBSTR (ALL, 31, 3) , 
c->dbid*_out  WITH  SOBSTR (ALL, 40, 3) , c~>dbid*_in  WITH  SOBSTR (ALL, 49, 4) 

REPL  c->dbid_aval  WITH  SOBSTR (ALL, 58,3), c->dce_approv  WITH  SOBSTR  (ALL,  67,  3) , ; 

c->daward_con  WITH  SOBSTR (ALL, 76, 3) , c->dmobilize  WITH  SOBSTR (ALL, 85, 3) 

REPL  c->drequired  WITH  SOBSTR (ALL, 129, 4) 

ENDIF 

SKIP 

ENDDO 

ZAP  ££  aa.dbf 

011,10  SAY  'MERGING  PSSR  "Procurement"  AND  "Subcontract"  DBASE  FILES' 

012,25  SAY  "PLEASE  DON'T  TOOCH  KEYBOARD" 

SELECT  B  ££  pssr_pr.dbf 
GO  BOTTOM 

SELECT  C  ££  psor_sc.dbf 
GO  TOP 

DO  WHILE  .NOT.  EOF() 

SELECT  B 
APPEND  BLANK 

REPL  activ_id  WITH  c->activ_id,  descript  WITH  c->de*cript, ; 

echedclaes  WITH  c->*chedclasa,  req_no  WITH  c->r*q_no 
REPL  p_o_no  WITH  c->p_o_no,  vendomama  WITH  c->vendornama, ; 

ramar ka  WITH  c->rem*r)c»,  advertize  WITH  c->advertize 
REPL  roqt-oproc  WITH  c->pr_bid_doc,  bid*_out  WITH  c->bids  out, ; 

bid*_in  WITH  c->bid*_in,  kebid_eval  WITH  c->bid  aval 
REPL  cobid_eval  WITH  c->ce_approve,  award_p_o  WITH  c->award_cont, ; 

arriueaite  WITH  c->mobilize_c,  required  WITH  c->required 
REPL  dadvertize  WITH  c->dadvertize,  dreqtoproc  WITH  c->dprbid  doc,; 

dbida_out  WITH  c->dbids_out,  dbids_in  WITH  c->dbids  in 
REPL  dkebid_eva  WITH  c->dbid_eval,  dcebid_eva  WITH  c->dca  approv, ; 
daward_p_o  WITH  c->daward_con 

RP.PL  darrivcsit  WITH  c->dmobllize,  drequired  WITH  c->drequired 
SKIP 

SEIECT  C 
SKIP 
ENDDO 
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ENDIF 
SELECT  B 
GO  TOP 

DO  WHILE  .NOT.  EOF  () 

F=8 

DO  WHILE  F<20 
fn=FIELD (F) 
om='  ' 

IF  tfn<>'  ' 

om=SUBSTR ( £  f n , 3 , 3 ) 

REPL  £fn  WITH  (£om+'/'+SUBSTR(Sfn,l,2)+'/'+SUBSTR(£fn,6,2)) 
ENDIF 
F=F+1 
ENDDO 
SKIP 
ENDDO 

SET  COLOR  TO  Smenucol 
CLEAR 

pssr_done=.T. 

*  Start  of  filelist  update 
SELECT  A 

USE 

USE  filelist 
GOTO  TOP 

REPLACE  pssr_proc  WITH  UPPER (filps*r_pr) 

IF  sc_exist 

REPLACE  pssr_subs  WITH  UPPER (filpssr_sc) 

ENDIF 

USE 

*  End  of  filelist  update 
SELECT  B 

RETURN 

*:  EOF:  PSSR.PRG 
AZ 
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* • a******************************************************************** 


Program:  PAR_E.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Laat  modifiad:  04/26/89  15:56 

Called  by:  SETPARMS . PRG 

Documented  04/27/89  at  10:40  SNAP  I  veraion  3 . 12a 

********************************************************************* 


*  Parameter  setup  for  report  a 


CLEAR 


01,21  SAY  'REPORT  E:  PSSR/SCHEDULE/SUBMITTAL  COMPARISON  1' 

03,5  SAY  '  Report  E  identifies  Activities  which  have  matching  data  in  the' 

04,5  SAY  'PSSR  and  Submittal  files  but  have  mismatching  submittal  dates,  and' 
05,5  SAY  'have  lass  than  a  specified  quantity  of  Float.  By  default  this  Float' 
@6,5  SAY  'is  set  at  10  days.' 

@8,5  SAY  '  However,  the  user  can  altarnativaly  supply  his  own  value  for' 

@9,5  SAY  'the  Float.  If  you  wish  to  accept  the  default,  simply  press  <Enter>' 
010,5  SAY  'following  the  prompt.  If  you  would  rather  supply  your  own  value,' 
@11,5  SAY  'type  it  in  and  press  <Entar>.' 

013,10  SAY  'Float  Value  in  Working  Days  >  '  GET  refloat  PICTURE  '999' 

READ 

RETURN 

*:  EOF:  PAR_E . PRG 
AZ 
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★  •  *********  *  it  it  it  *****************************  *************************** 

*  • 

*:  Program:  PAR_F.PRG 

* : 

*:  System:  PROJECT  MANAGEMENT  TOOLS' 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (o)  1989,  USA-CERL/ASC/RCE 

*;■  Last  modified:  04/26/89  15:56 

*  ; 

*:  Called  by:  SETPARMS . PRG 

*; 

*:  Documented  04/27/89  at  10:40  SNAP!  version  3.12e 

*;********************************************************************* 

*  Parameter  setup  for  report  f 

CLEAR 

01,21  SAY  'REPORT  F:  PSSR/SCHEDULE/SUBMITTAL  COMPARISON  2' 

@3,5  SAY  '  Report  F  identifies  Activities  which  have  matching  data  in  the' 

@4,5  SAY  ' PSSR  and  Submittal  files  but  have  mismatching  submittal  dates,  and' 

@5,5  SAY  'have  a  time  difference  between  their  PSSR  submittal  and  approval  dates' 

@6,5  SAY  'of  less  than  a  specified  percentage  of  their  Float.  By  default  this' 

@7,5  SAY  'Float  percentage  is  set  at  20%.' 

@9,5  SAY  '  However,  the  user  can  alternatively  supply  his  own  value  for' 

@10,5  SAY  'this  Float  percentage.  If  you  wish  to  accept  the  default,  simply  press' 
@11,5  SAY  ' <Enter>  following  the  prompt.  If  you  would  rather  supply  your  own' 

@12,5  SAY  'percentage,  type  it  in  and  press  <Enter>.' 

@14,10  SAY  'Percentage  of  Float  (as  described  above)  >  '  GET  rfpercent  PICTURE  '999%' 

READ 

RETURN 

*:  EOF:  PAR_F . PRG 
AZ 
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* ■ ********************************************************************* 

*  ; 

*:  Program:  PAR_G.PRG 

*:  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (c)  1989,  OSA-CERL/ASC/RCE 

*:  Last  modified:  04/26/89  15:57 

★  J 

*:  Called  by:  SETPARMS . PRG 

* : 

*:  Documented  04/27/89  at  10:41  SNAP!  veraion  3.12a 

* ;  I*************************** *********  »★★*★★★*★★★**★******★★★★★★*★★★★** 

*  Get  parameters  for  Report  G 
CLEAR 

01,17  SAY  'REPORT  G:  RESOURCE  LOADING  ANALYSIS  -  MANPOWER  VARIANCE' 

@3,5  SAY  '  Report  G  analyzes  those  Activities  requiring  more  than  a  particular' 
@4,5  SAY  'number  of  men  per  day.  Input  the  number  of  men  per  day  per  Activity  ABOVE 
@5,5  SAY  'which  to  aearch  (use  a  number  between  0  and  9999),  or  press  <Entar>  to  use 
DO  WHILE  .T. 

@6,5  SAY  'the  default  of  20  men  per  day  per  Activity:  '  GET  rgmn  PICTURE  '9999' 
READ 

IF  rgmn<O.OR.rgmn>9999 
SET  COLOR  TO  Cerrcol 

@8,10  SAY  'CHOICE  IS  OUT  OF  RANGE  -  PLEASE  CHOOSE  A  NUMBER  BETWEEN  0  AND  9,999'.' 
SET  COLOR  TO 
ELSE 

@8,10  SAY  'Valid  choice.' 

EXIT 

ENDIF 

ENDDO 

@10,5  SAY  'Next,  input  the  threshold  of  standard  deviations  above  which  to  analyze' 
@11,5  SAY  'Activities  (use  a  number  between  0  and  99.99,  or  press  <Enter>  to  use  the 
DO  WHILE  .T. 

012,5  SAY  'the  default  of  1.00:  '  GET  rgad  PICTURE  '99.99' 

READ 

IF  rgsd<O.OR.rgsd>99. 99 
SET  COLOR  TO  terrcol 

@14,10  SAY  'CHOICE  IS  OUT  OF  RANGE  -  PLEASE  CHOOSE  A  NUMBER  BETWEEN  0  AND  99.99. 
SET  COLOR  TO 
ELSE 

@14,10  SAY  'Valid  choice.' 

EXIT 

ENDIF 

ENDDO 

CLEAR 

@1,17  SAY  'REPORT  G:  RESOURCE  LOADING  ANALYSIS  -  MANPOWER  VARIANCE' 

@3,5  SAY  '  Finally,  you  may  choose  one  of  the  following  Activity  Codes  or' 
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64.5  SAY  'Activity  ID  Codas  to  establish  the  grouping  for  Mean  and  Standard1 

65.5  SAY  'Deviation  calculations.' 

67,10  SAY  '1  STND  Activity  ID  Code' 

RESPonsibility  Activity  Code' 

WAD  Activity  Code' 

SORT  Details  Activity  Code' 

SUBcontractS  Activity  Coda' 

AREA  Activity  ID  Code' 

SUb-ARea  Activity  ID  COde' 

TYPE  of  Work  Activity  ID  Code' 


e8,10  SAY  '2 

69.10  SAY  '3 
010,10  SAY  '4 

611.10  SAY  '5 
@12,10  SAY  ' 6 

613.10  SAY  '7 

614.10  SAY  '8 
DO  WHILE  .T. 

016,20  SAY 
READ 

IF  . NOT. rgcode$' 12345678' 
SET  COLOR  TO  Serrcol 
ei8,20  SAY  'WRONG  CHOICE 
SET  COLOR  TO 
ELSE 

@18,20  SAY  'Valid  Code' 
EXIT 
ENDIF 
ENDDO 


Enter  the  number  for  one  Code 


SELECT  AGAIN' 


GET  rgcode  PICTURE  ' 9' 


RETURN 

*:  EOF:  PAR_G . PRG 
AZ 
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* • ****** **** *******  ************** ***★★***★★* ************* *********** 


* 


*:  Program:  PAR_H.PRG 

*  ; 

*:  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (c)  1989,  USA-CERL/ASC/RCE 

*:  Last  modified:  04/26/89  15:57 

*  • 


*:  Called  by:  SETPARMS.PRG 

* ; 

*:  Documented  04/27/89  at  10:41  SNAP)  version  3.12a 

* ; ********************************************************************* 


*  Get  Parameters  for  Report  H 


CLEAR 

01,19  SAY  'REPORT  H:  RESOURCE  LOADING  ANALYSIS  -  FUNDING  VARIANCE' 

03,5  SAY  '  Report  H  analyzes  those  Activities  requiring  more  than  a  particular' 

04,5  SAY  'number  of  dollars  per  day.  Input  the  number  of  dollars  per  day  per' 

05,5  SAY  'Activity  ABOVE  which  to  search  (use  a  number  between  $0  and  $99,999),  or' 

DO  WHILE  .T. 

06,5  SAY  'press  <Entar>  to  use  the  default  of  $2000  per  day  per  Activity:  '  GET  rhdl  PICTURE 
'  99,  999' 

READ 

IF  rhdl<O.OR.rhdl>99999 
SET  COLOR  TO  Serrcol 

08.10  SAY  'CHOICE  IS  OUT  OF  RANGE  -  PLEASE  CHOOSE  A  NUMBER  BETWEEN  0  AND  99,999' 

SET  COLOR  TO 
ELSE 

08,10  SAY  'Valid  choice.' 

EXIT 

ENDIF 

ENDDO 

010,5  SAY  'ext,  input  the  threshold  of  standard  deviations  above  which  to  analyze' 

011,5  SAY  'A-  ities  (use  a  number  between  0  and  99.99,  or  press  <Enter>  to  use  the' 

DO  WHILE  .T. 

012,5  SAY  'the  default  of  1:  '  GET  rhsd  PICTURE  '99.99' 

READ 

IF  rhsd  <  0.0  .OR.  rhsd  >  99.99 
SET  COLOR  TO  terrcol 

014,10  SAY  'YOUR  CHOICE  IS  OUT  OF  RANGE.  PLEASE  CHOOSE  A  NUMBER  BETWEEN  0  AND  99.99.' 

SET  COLOR  TO 
ELSE 

014,10  SAY  'Valid  choice.' 

EXIT 

FNDIF 

ENDDO 

CLEAR 

01,19  SAY  'REPORT  H:  RESOURCE  LOADING  ANALYSIS  -  FUNDING  VARIANCE' 
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03,5  SAY  '  Finally,  you  may  choose  one  of  the  following  Activity  Code*  or' 
04,5  SAY  'Activity  ID  Codes  to  establish  the  grouping  for  Mean  and  Standard' 
05,5  SAY  'Deviation  calculations.' 


07,10  SAY  '1 
08,10  SAY  '2 
09,10  SAY  '3 
010,10  SAY  '4 
@11,10  SAY  '5 
@12,10  SAY  '6 
013,10  SAY  '7 
@14,10  SAY  '8 


STND  Activity  ID  Coda' 
RESPonsibility  Activity  Code' 
HAD  Activity  Code' 

SORT  Details  Activity  Code' 
subcontracts  Activity  Code' 
AREA  Activity  ID  Code' 
SUb-ARea  Activity  ID  COde' 

TYPE  of  Work  Activity  ID  Code' 


DO  WHILE  .T. 

@16,20  SAY  'Enter  the  number  for  one  Coda  :  '  GET  rhcode  PICTURE  '9' 
READ 

IF  .NOT. rhcode$' 12345678' 

SET  COLOR  TO  terrcol 

@18,20  SAY  'WRONG  CHOICE  -  SELECT  AGAIN' 

SET  COLOR  TO 
rhcode=' 1' 

ELSE 

@18,20  SAY  'Valid  Code' 

EXIT 

ENDIF 

ENDDO 

RETURN 

*:  EOF:  PAR_H . PRG 
AZ 
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★ ; ************* ***************************** ******************** ******* 

*; 

*:  Program:  PAR_I.PRG 

*; 

*:  Syatam:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (o)  1989,  USA-CERL/ASC/RCE 

*:  Last  modified:  04/26/89  15:57 

*  • 

*:  Called  by:  SETPARMS . PRG 

* : 

*:  Documented  04/27/89  at  10:41  SNAP!  veraion  3.12e 

* ;  ********************************************************************* 

*  Gat  Parameters  for  Report  X 


CLEAR 

@1,20  SAY  'REPORT  I:  RESOURCE  LOADING  ANALYSIS  -  TIME  VARIANCE' 

@3,5  SAY  '  Report  I  analyzes  those  Activities  requiring  more  than  a  particular' 

@4,5  SAY  'number  days  to  complete.  Input  the  number  of  days  per  Activity  ABOVE' 

@5,5  SAY  'which  to  search  (use  a  number  between  1  and  9,999),  or  press  <Enter>' 

DO  WHILE  .T. 

@6,5  SAY  'to  uso  the  default  of  40  days  per  Activity:  '  GET  ridy  PICTURE  '9,999' 

READ 

IF  ridy<l . OR. ridy>9999 
SET  COLOR  TO  terrcol 

@8,10  SAY  'YOUR  CHOICE  IS  OUT  OF  RANGE.  PLEASE  CHOOSE  A  NUMBER  BETWEEN  1  AND  9,999. 
SET  COLOR  TO 
ELSE 

@8,10  SAY  'Valid  choice.' 

EXIT 

ENDIF 

ENDDO 

@10,5  SAY  'Next,  input  the  threshold  of  standard  deviations  above  which  to  analyze' 

@11,5  SAY  'Activities  (use  a  number  between  0  and  99.99,  or  press  <Enter>  to  use  the' 

DO  WHILE  .T. 

012,5  SAY  'the  default  of  1:  '  GET  risd  PICTURE  '99.99' 

FEAD 

IF  risd<0.OR.riod>99. 99 
SET  COLOR  TO  terrcol 

@14,10  SAY  'YOUR  CHOICE  IS  OUT  OF  RANGE.  PLEASE  CHOOSE  A  NUMBER  BETWEEN  0  AND  99.99 
SET  COLOR  TO 
ELSE 

@14,10  SAY  'Valid  choice.' 

EXIT 

ENDIF 

ENDDO 

CLEAR 

@1,20  SAY  'REPORT  I:  RESOURCE  LOADING  ANALYSIS  -  TIME  VARIANCE' 

@3,5  SAY  '  Finally,  you  may  choose  one  of  the  following  Activity  Codes  or' 

@4,5  SAY  'Activity  ID  Codes  to  establish  the  grouping  for  Mean  and  Standard' 

@5,5  SAY  'Deviation  calculations.' 
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07,10  SAY  '1  SIND  Activity  ID  Cod*' 

08,10  SAY  RESPon*ibillty  Activity  Cod*' 

09,10  SAY  '3  WAD  Activity  Cod*' 

010,10  SAY  '4  SORT  Detail*  Activity  Code' 

011,10  SAY  '5  SUBcontractS  Activity  Code' 

012,10  SAY  '6  AREA  Activity  ID  Cod*’ 

013,10  SAY  '7  SUb-ARoa  Activity  ID  COd*’ 

014,10  SAY  '8  TYPE  of  Work  Activity  ID  Code' 

DO  WHILE  .T. 

016,20  SAY  'Enter  the  number  for  one  Cod*  :  '  GET  ricode  PICTURE  '9' 
READ 

IF  .NOT. ricode?' 1234S678' 

SET  COLOR  TO  terrcol 

018,20  SAY  'WRONG  CHOICE  -  SELECT  AGAIN' 
ricode  **  '1' 

SET  COLOR  TO 
ELSE 

018,20  SAY  'Valid  Code' 

EXIT 

ENDIF 

ENDDO 

RETURN 

*:  EOF:  PAR_I . PRG 
AZ 
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*  •  it  it  it -kit  it  it  ******  ************  **★★*★*  *****  **********************  ********** 

It  ; 

*:  Program:  PAR_K.PRG 

*  ; 

*:  Syatem:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (c)  1989,  USA-CERL/ASC/RCE 

*:  Laat  modified:  04/26/89  16:00 

*  ; 

*:  Callad  by:  SETPARMS.PRG 

*  ■ 

*:  Documented  04/27/89  at  10 :<1  SNAP  I  varsion  3.12a 

*;****************************«******************** ******************** 

*  Gat  Paramatara  for  Raport  K 

CLEAR 

0  1,27  SAY  "REPORT  K:  ACTIVITIES  TO  CRASH" 

0  3,  5  SAY  "Raport  K  will  find  tha  4  moat  critical  patha  in  tha  " 

0  4,  5  SAY  "achadula  and  print  thoaa.  Raport  K  will  alao  find  thoaa" 

0  5,  S  SAY  "activitiaa  which  maat  cartain  criteria.  It  chaclca  for  tha" 

0  6,  5  SAY  "a  certain  valuaa  of  Man  Power  Loading  and  Duration." 

0  14,10  SAY  "What  value  for  Man  Powar  Loading  to  uaa:  "  GET  mpl  PICTURE  '999' 
READ 

0  15,10  SAY  "What  value  for  Duration  to  use:  "  GET  durat  PICTURE  '99999' 

READ 

0  16,10  SAY  "What  value  for  Relation  Duration  to  uaa:  "  GET  raldur  PICTURE  '999' 

READ 

RETURN 

*:  EOF:  PAR_K.PRG 
AZ 
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*  • ********* *********  ****** ********* ************************************ 

*  i 

*:  Program:  PAR_L.PRG 

*  ; 

*:  Syatam:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (c)  1989,  USA-CERL/ASC/RCE 

*:  hast  modified:  04/27/89  6:32 

*:  Called  by:  SETPARMS.PRG 

*  ; 

*:  Documented  04/27/89  at  10:41  SNAP!  version  3.12e 

*  ;  ********************************************************************* 

*  Routine  to  Get  Parameters  for  Report  L 

CLEAR 

01,29  SAY  [REPORT  L:  DELAYS  IN  DESIGN] 

02,4  SAY  "  " 

TEXT 

Report  L  compares  the  loss  of  Float  in  Activities  involving  design 
drawings  (or  any  other  user-selected  STND  Coda  value) ,  between  two 
different  Schedule  update  files.  You  will  need  to  input  two  schedule  files 
which  must  have  previously  been  been  exported  from  Primavera  and  processed 
in  PROMAN  (sea  user  manual  for  details) .  Input  file  names  below.  Enter 
the  earliest  schedule  file  first. 

EKDTEXT 

DO  WHILE  .T. 

filsch’l  =  filschll  +  ’•  ” 

010,4  SAY  'Input  the  filename  of  your  EARLIEST  Schedule  file:  '  GET  filschll 
READ 

filschll=TRIM (filschll) 

IF  FILE (filschll) 

012,15  SAY  'VALID  FILENAME' 

EXIT 

ELSE 

SET  COLOR  TO  fierrcol 

012,15  SAY  'CANNOT  FIND  ' +TRIM (filschll) +  '  -  WOULD  YOU  LIKE  TO:' 

SET  COLOR  VO  tmenucol 

014,15  SAY  '  1)  Return  to  the  Main  Menu?' 

ch=2 

015,15  SAY  '  2)  Input  an  alternate  filename?  Select  1  OR  2  :  'GET  ch  PICTURE  '9' 

READ 

IF  ch=l 

option  =  0 
RETURN 
ENDIF 

012,1  CLEAR  TO  15,79 
ENDIF 
ENDDO 

DO  WHILE  .T. 
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£ilsch21  -  filachad  +  " 

017,4  SAY  'Input  the  filename  of  your  LATEST  Schedule  file:  'GET  £il«ch21 
READ 

filsch21*TRIM(filsch21) 

IF  FILE (filach21) 

019,15  SAY  'VALID  FILENAME' 

EXIT 

ELSE 

SET  COLOR  TO  6errcol 

019,15  SAY  'CANNOT  FIND  ' +TRIM(filach21) +  '  -  WOULD  YOU  LIKE  TO:' 

SET  COLOR  TO  £menUCOl 

021,15  SAY  '  1)  Return  to  tha  Main  Manu?' 

ch*2 

022,15  SAY  '  2)  Input  an  altornata  filename?  Salact  1  OR  2  :  'GET  ch  PICTURE  '9' 

IF  ch**l 

option  0 
RETURN 
ENDIF 

017,1  CLEAR  TO  22,79 
ENDIF 
ENDDO 


CLEAR 

01,29  SAY  [REPORT  L:  DELAYS  IN  DESIGN] 

03,5  SAY  '  Following  la  a  Hat  of  STND  Coda  valuaa  praant  in  tha  two  Schedula' 

04,5  SAY  ' fllea  you  hava  antcrad: ' 

06,10  SAY  '01  -  Ganaral 
07,10  SAY  '02  -  Slta  Utllitlaa 
08,10  SAY  '03  -  Conorata 
09,10  SAY  '04  -  Maaonry 
010,10  SAY  '05  -  Matal 
011,10  SAY  '06  -  Wood  and  Plaatica 
012,10  SAY  '07  «  Moiatura-Tharmal  Control 
013,10  SAY  '08  m  Doora,  Windows  £  Glass 
014,10  SAY  '09  -  Finlahaa 
015,10  SAY  '10  »  Spaoialtiaa' 

OO  WHILE  .T. 

017,5  SJ-Y  [You  may  salact  tha  STND  coda  itam  on  which  to  run  Report  L,  or  press] 

«18,5  SAY  [<RETURN>  to  accept  tha  default  Coda,  'DR'  for  Design  Drawings:  ]  GET  stnd  PICTURE 
READ 

3tnd=TRIM (stnd) 

IF  . HOT.  stnd$'  01, 02,  03,  04, 05,  06,  07,  08,  09, 10, 11, 12, 13, 14,  ’5, 16,  DR, PM,  PR,  SC' 

SET  COLOR  TO  tarrcol 

020,10  SAY  'THAT  STND  CODE  DOES  NOT  EXIST  -  PLEASE  RE-ENTER.' 

SET  COLOR  TO  4menucol 
ELSE 
EXIT 
ENDIF 
ENDDO 

CLEAR 


11  «  Equipment' 

12  -  Furnishings' 

13  -  Special  Construction' 

14  -  Conveying  Systems' 

15  -  Mechanical' 

DR  -  DRawings' 

PM  -  Prap  Meetings' 

PR  -  PRoourement' 

SC  ■  Subcontract  Award' 
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********************************************************************* 


* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


Program:  REPM_INT . PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (o)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/27/89  6:28 

Called  by:  SETPARMS.PRG 

Uses:  GRADING1 . DBF 
:  GRADING2.DBF 


*:  Documented  04/27/89  at  10:41  SNAP!  version  3.12e 

*********************************************************************** 


**  REP_INT . PRG  -  Get  ueer-specified  data  for  Report  M 

SET  COLOR  TO 

CLEAR 

01,1  SAY  "  " 

TEXT 

REPORT  M:  CONTRACTOR  GRADING 


The  DATA  DATE  ia  required  to  run  this  program.  The  schedule  data 
date  reflects  the  effective  date  of  schedule  information  as  computed 
in  primavera. 

Please  enter  the  DATA  DATE  below.  The  report  will  not  be  run  without 
this  value.  If  no  value  is  entered  you  will  be  returned  to  the  Main 
Menu. 

Enter  the  DATA  DATE  in  the  form:  MM/DD/YY.  The  slashes  will  be  placed 
automatically  and  only  a  valid  date  will  be  accepted. 

ENDTEXT 

DO  WHILE  .T. 

SET  CONFIRM  ON 
917,32  GET  datadate 
READ 

SET  CONFIRM  OFF 

IF  DTOC  (datadate)  •»"//'■ 

019,10  SAY  "Since  the  data  date  was  left  blank,  you  will  be" 

020,10  SAY  "returned  to  the  main  menu  unless  you  enter  an  'N'” 
021,10  SAY  "at  this  time." 

022,10  SAY  "  " 
yn  "Y" 

023,20  SAY  "Your  choice:  "  GET  yn 
READ 

yn=UPPER  (yn) 

IF  yn  <>  "N" 
option  =  0 
RETURN 
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ENDIF 

017,10  CLEAR  TO  23,79 
ELSE 
EXIT 
ENDIF 
ENDDO 
CLEAR 

01,2  SAY  "  " 

TEXT 

REPORT  M:  CONTRACTOR  GRADING 

Report  M  enables  the  user  to  set  scales  by  which  to  "grade"  or  rate 
the  contractor's  performance  in  a  number  of  areas,  and  then  to  analyze 
this  performance. 

In  the  following  screens,  you  will  be  given  an  opportunity  to  set 
various  scales  by  which  performance  will  be  judged.  The  allowable  range 
of  threshold  values  will  be  shown  next  to  each  entry  box.  The  default 
value  is  in  the  box;  to  accept  it  simply  press  the  <Enter>  key.  To 
choose  another  value,  type  that  value  into  the  entry  box.  An  entire  page 
be  accepted  at  once  by  pressing  the  <PgDn>  key. 


ENDTEXT 

WAIT 

CLEAR 

COPY  FILE  gradldef.dbf  TO  gradingl.dbf 

SELECT  F 

USE  gradingl 

SET  COLOR  TO  Sextracol 

@0,25  SAY  'GRADING  ITEM  1:  SCHEDULE  REPORTING' 

01,28  SAY  'Performance  Category:  Poor' 

SET  COLOR  TO 

@3,1  SAY  'A)  Between  %  and  %  of  PSSR  and  submittal  (from  submittal' 

@4,1  SAY  '  database)  Activities  directly  correspond  to  schedule  Activities.' 

@5,1  SAY  'B)  Betwoon  %  and  %  of  procurement  Activities  in  the  Schedule' 

36,1  SAY  '  are  tied  into  the  corresponding  PSSR  and  submittal  (from  submittal' 

P7,l  SAY  database)  items.' 

@8,1  SAY  'C)  Between  %  and  %  of  construction  Activities  (i.e.,' 

@9,1  SAY  ’  nonprocuremont  Activities)  have  durations  exceeding  20  days.' 

010,1  SAY  'D)  Between  %  and  %  of  Schedule  Activities  are  coded  correctly.' 

03  11  GET  al  PICTURE  '999.9' 

@3,23  GET  a2  PICTURE  '999.9' 

@5,11  GET  br  PICTURE  '999.9' 

@5,23  GET  b2  PICTURE  '  999.9' 

08,11  GET  cl  PICTURE  '999.9' 

@8,23  GET  c2  PICTURE  '999.9' 

@10,11  GET  dl  PICTURE  '999.9' 

@10,23  GET  d2  PICTURE  '999.9' 

READ 

SKIP 
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SET  COLOR  TO  Sextracol 

@13,26  SAY  'Performance  Category:  Marginal' 

SET  COLOR  TO 

@15,1  SAY  'A)  Between  %  and  %  of  PSSR  and  submittal  (from  submittal' 

@16,1  SAY  '  database)  Activities  directly  correspond  to  schedule  Activities.' 

@17,1  SAY  'B)  Between  %  and  %  of  procurement  Activities  in  the  Schedule' 

@18,1  SAY  '  are  tied  into  the  corresponding  PSSR  and  submittal  (from  submittal' 

@19,1  SAY  '  database)  items.' 

@20,1  SAY  'C)  Between  %  and  %  of  construction  Activities  (i.e.,' 

@21,1  SAY  '  nonprocurement  Activities)  have  durations  exceeding  20  days.' 

@22,1  SAY  'D)  Between  %  and  %  of  Schedule  Activities  are  coded  correctly.' 

@15,11  GET  al  PICTURE  '999.9' 

@15,23  GET  a2  PICTURE  '999.9' 

@17,11  GET  bl  PICTURE  '999.9' 

017,23  GET  b2  PICTURE  '999.9' 

@20,11  GET  cl  PICTURE  '999.9' 

@20,23  GET  c2  PICTURE  '999.9' 

@22,11  GET  dl  PICTURE  '999.9' 

@22,23  GET  d2  PICTURE  '999.9' 

READ 

SKIP 

CLEAR 

SET  COLOR  TO  Cextracol 

@0,25  SAY  'GRADING  ITEM  1:  SCHEDULE  REPORTING' 

@1,25  SAY  'Performance  Category:  Acceptable' 

SET  COLOR  TO 

@3,1  SAY  'A)  Between  %  and  %  of  PSSR  and  submittal  (from  submittal' 

@4,1  SAY  '  database)  Activities  directly  correspond  to  schedule  Activities.' 

@5,1  SAY  'B)  Between  %  and  %  of  procurement  Activities  in  the  Schedule' 

@6,1  SAY  '  are  tied  into  the  corresponding  PSSR  and  submittal  (from  submittal' 

@7,1  SAY  '  database)  items.' 

@8,1  SAY  'C)  Between  %  and  %  of  construction  Activities  (i.e.,' 

@9,1  SAY  '  nonprocuremont  Activities)  have  durations  exceeding  20  days.' 

@10,1  SAY  'D)  Between  %  and  %  of  Schedule  Activities  are  coded  correctly.' 

@3,11  GET  al  PICTURE  '999.9' 

@3,23  GET  a2  PICTURE  '999.9' 

@5,11  GET  bl  PICTURE  '999.9' 

@5,23  GET  b2  PICTURE  '999.9' 

@8,11  GET  cl  PICTURE  '999.9' 

@8,23  GET  c2  PICTURE  '999.9' 

@10,11  GET  dl  PICTURE  '999.9' 

910,23  GET  d2  PICTURE  '999.9' 

READ 

SKIP 

SET  COLOR  TO  fiextracol 

@13,28  SAY  'Performance  Category:  Good' 

SET  COLOR  TO 

@15,1  SAY  'A)  Between  %  and  %  of  PSSR  and  submittal  (from  submittal' 

@16,1  SAY  '  database)  Activities  directly  correspond  to  schedule  Activities.' 

@17,1  SAY  'B)  Between  %  and  %  of  procurement  Activities  in  the  Schedule' 

@18,1  SAY  '  are  tied  into  the  corresponding  PSSR  and  submittal  (from  submittal' 

@19,1  SAY  '  database)  items.' 
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020,1  SAY  'C)  Between  %  «nd  %  of  construction  Activitios  (i.e.,' 

021,1  SAY  '  nonprocuromont  Activities)  have  durations  exceeding  20  days.' 

022,1  SAY  'D)  Between  %  and  %  of  Schedule  Activities  are  coded,  correctly. 

015,11  GET  al  PICTURE  '999.9' 

015,23  GET  a2  PICTURE  '999.9' 

017,11  GET  bl  PICTURE  '999.9' 

017,23  GET  b2  PICTURE  '999.9' 

020,11  GET  cl  PICTURE  '999.9' 

020,23  GET  c2  PICTURE  '999.9' 

022,11  GET  dl  PICTURE  '999.9' 

022,23  GET  d2  PICTURE  '999.9' 

READ 

SKIP 

CLEAR 

SET  COLOR  TO  Sextracol 

00,25  SAY  'GRADING  ITEM  1:  SCHEDULE  REPORTING' 

01,26  SAY  'Performance  Category:  Excellent' 

SET  COLOR  TO 

03,1  SAY  'A)  Between  %  and  %  of  PSSR  and  submittal  (from  submittal' 

@4,1  SAY  '  database)  Activities  directly  correspond  to  schedule  Activities.' 

05,1  SAY  'B)  Between  %  and  %  of  procurement  Activities  in  the  Schedule' 

06,1  SAY  '  are  tied  into  the  corresponding  PSSR  and  submittal  (from  submittal' 

07,1  SAY  '  database)  items.' 

@8,1  SAY  'C)  Betweon  %  and  %  of  construction  Activities  (i.e.,' 

@9,1  SAY  ’  nonprocurement  Activities)  have  durations  exceeding  20  days.' 

010,1  SAY  'D)  Between  %  and  %  of  Schedule  Activities  are  coded  correctly. 

03,11  GET  al  PICTURE  '999.9' 

@3,23  GET  a2  PICTURE  '999.9' 

@5,11  GET  bl  PICTURE  '999.9' 

05,23  GET  b2  PICTURE  '999.9' 

08,11  GET  cl  PICTURE  '999.9' 

08,23  GET  c2  PICTURE  '999.9' 

@10,11  GET  dl  PICTURE  '999.9' 

310,23  GET  d2  PICTURE  '999.9' 

READ 

USE 

★  k  *  'k'kic 


CLEAR 
SILECT  C 

CoPY  FILE  grad2def.dbf  TO  grading2.dbf 
USE  grading? 

IET  COLOR  10  Sextracol 

00,25  SAY  'GRADING  ITEM  2:  SCHEDULE  PROGRESS' 

@1,28  SA"  'Performance  Category:  Poor' 

SET  COLOR  TO 

@3,1  SAY  'A  )  There  are  between  and  specific  Activities  that  have' 

@4,1  SAY  '  negative  Float.' 


(?5,1  SHY  ' B)  ISctvccn 


%  of  Activitios  on  the  four  most  critical' 


@6,1  SAY  '  paths  (which  could  have  started  during  this  time  period),  started' 

@7,1  SAY  '  on  their  "Early  Start  Date".' 

@8,1  SAY  'C)  Between  %  and  %  of  Activities  on  the  four  most  critical' 

09,1  SAY  '  paths  (which  could  have  started  during  this  time  period),  have  a  "Percent' 


010,1  SAY  '  Complete"  value  equal  to  or  hlghar  than  tha  porportion  to  tha  daya' 

011,1  SAY  '  expended  and  tha  daya  ramaining,  baaad  on  currant  achadula  prograa#.' 
012,1  SAY  'D)  Between  %  and  %  of  Aotlvitiaa  hava  "Actual  Start  Dates"' 

013,1  SAY  '  which  Mill  raach  "Percent  Complete"  if  tha  "Actual  Start  Data"  la' 

014,1  SAY  '  ovar  1  weak  earlier  than  the  "Data  Data".' 

015,1  SAY  'E)  Batwaan  %  and  %  of  Activitiaa  hava  "Parcant  Complata"' 

016,1  SAY  '  values  greater  than  0.0%  or  a  "Remaining  Duration"  with  no  "Actual' 

017,1  SAY  '  Start  Date".' 

018,1  SAY  'F)  Between  %  and  %  of  Activitiaa  hava  a  "Ramaining  Duration"' 

019,1  SAY  '  greater  than  their  "Original  Duration".' 

USE  grading2 

03,22  GET  al  PICTURE  '999999' 

03,33  GET  a2  PICTURE  '999999' 

05,11  GET  bl  PICTURE  '999.9' 

@5,23  GET  b2  PICTURE  '999.9' 

08,11  GET  cl  PICTURE  '999.9' 

08,23  GET  c2  PICTURE  '999.9' 

@12,11  GET  dl  PICTURE  '999.9' 

@12,23  GET  d2  PICTURE  '999.9' 

@15,11  GET  al  PICTURE  '999.9' 

@15,23  GET  e2  PICTURE  '999.9' 

@18,11  GET  fl  PICTURE  '999.9' 

018,23  GET  f2  PICTURE  '999.9' 

READ 

SKIP 

CLEAR 

SET  COLOR  TO  textracol 

@0,25  SAY  'GRADING  ITEM  2:  SCHEDULE  PROGRESS' 

@1,26  SAY  'Performance  Category:  Marginal' 

SET  COLOR  TO 

@3,1  SAY  'A)  Thera  are  between  and  specific  Activities  that  have' 

@4,1  SAY  '  negative  Float.' 

@5,1  SAY  'B)  Between  %  and  %  of  Activities  on  tha  four  most  critical' 

@6,1  SAY  '  paths  (which  could  hava  started  during  this  time  period),  started' 

@7,1  SAY  '  on  their  "Early  Start  Date".' 

@8,1  SAY  'C)  Between  %  and  %  of  Activities  on  the  four  most  critical' 

@9,1  SAY  '  paths  (which  could  have  started  during  this  time  period),  have  a  "Percent' 
@10,1  SAY  '  Complete"  valua  aqual  to  or  higher  than  tha  porportion  to  tha  days' 

@11,1  SAY  '  expanded  and  the  days  remaining,  based  on  current  schedule  progress.' 
@12,1  SAY  'D)  Between  %  and  %  of  Activities  have  "Actual  Start  Dates"' 

@13,1  SAY  '  which  will  reach  "Percent  Complete"  if  the  "Actual  Start  Date"  is' 

@14,1  SAY  '  over  1  week  earlier  than  the  "Data  Date".' 

@15,1  SAY  'E)  Between  %  and  %  of  Activities  have  "Percent  Complete"' 

@16,1  SAY  '  values  greater  than  0.0%  or  a  "Remaining  Duration"  with  no  "Actual' 

@17,1  SAY  '  Start  Date".' 

@18,1  SAY  'F)  Between  %  and  %  of  Activities  have  a  "Remaining  Duration"' 

@19,1  SAY  '  greater  than  their  "Original  Duration".' 

83,71  GET  23  PICTURE  '353353' 

03,32  GET  a2  PICTURE  '999999' 

@5,11  GET  bl  PICTURE  '999.9' 

@5,23  GET  b2  PICTURE  '999.9' 

@8,11  GET  cl  PICTURE  '999.9' 
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08,23  GET  c2  PICTURE  '999.9' 

012,11  GET  dl  PICTURE  '999.9' 

012,23  GET  d2  PICTURE  '999.9' 

015,11  GET  el  PICTURE  '999.9' 

015,23  GET  «2  PICTURE  '999.9' 

018,11  GET  fl  PICTURE  '999.9' 

018,23  GET  f2  PICTURE  '999.9' 

READ 

SKIP 

CLEAR 

SET  COLOR  TO  Sextracol 

00,25  SAY  'GRADING  ITEM  2:  SCHEDULE  PROGRESS’ 

01,25  SAY  'Performance  Category:  Acceptable' 

SET  COLOR  TO 

03,1  SAY  'A)  There  are  between  and  specific  Activities  that  have' 

04,1  SAY  '  negative  Float.' 

05,1  SAY  'B)  Between  %  and  %  of  Activities  on  tho  four  most  critical' 

@6,1  SAY  '  paths  (which  could  have  started  during  this  time  period),  started' 

07,1  SAY  '  on  their  "Early  Start  Date".' 

@8,1  SAY  'C)  Between  %  and  %  of  Activities  on  the  four  most  critical' 

09,1  SAY  '  paths  (which  could  have  started  during  this  time  period),  have  a  "Percent' 
010,1  SAY  '  Complete"  value  equal  to  or  higher  than  the  porportion  to  the  days' 

011,1  SAY  '  expended  and  the  days  remaining,  baaed  on  current  schedule  progress.' 
@12,1  SAY  'D)  Between  %  and  %  of  Activities  have  "Actual  Start  Dates"' 

013,1  SAY  '  which  will  roach  "Percent  Complete"  if  the  "Actual  Start  Date"  is' 

014,1  SAY  '  over  1  week  earlier  than  the  "Data  Date".' 

015,1  SAY  'E)  Between  %  and  %  of  Activities  have  "Percent  Complete"' 

@16,1  SAY  '  values  greater  than  0.0%  or  a  "Remaining  Duration"  with  no  "Actual' 

017,1  SAY  '  Start  Date".' 

@18,1  SAY  'F)  Between  %  and  %  of  Activities  have  a  "Remaining  Duration"' 

@19,1  SAY  '  greater  than  their  “Original  Duration".' 

03,21  GET  al  PICTURE  '999999' 

@3,32  GET  a2  PICTURE  '999999' 

05,11  GET  bl  PICTURE  '  999.9' 

05,23  GET  b2  PICTURE  '999.9' 

53,11  GET  cl  PICTURE  '999.9' 

03,23  GET  c2  PICTURE  '999.9' 

@12,11  GET  dl  PICTURE  '999.9' 

@12,23  GET  d2  PICTURE  '999.9' 

@15,11  CET  el  PICTURE  '999.9' 

@15,23  GET  e2  PICTURE  '999.9' 

@18,11  GET  fl  PICTURE  '999.9' 

@18,23  GET  f2  PICTURE  '999.9' 

READ 

SKIP 

CLEAR 

SET  COLOR  TO  Sextracol 

@0,20  SAY  'GRADING  ITEM  2:  SCHEDULE  PROGRESS' 

@1,28  SAY  'Performance  Category:  Good' 

SET  COLOR  TO 

@3,1  SAY  'A)  There  are  between  and  specific  Activities  that  have' 

@4,1  SAY  '  negative  Float.' 


171 


05,1  SAY  'B)  Between  %  end  %  of  Activities  on  the  four  mo*t  critical' 

06,1  SAY  '  path*  (which  could  have  started  during  thi*  time  period),  started' 

07,1  SAY  '  on  their  "Early  Start  Data".' 

08,1  SAY  'C)  Batwaan  %  and  %  of  Activitiaa  on  tha  four  mo*t  critical' 

09,1  SAY  '  path*  (which  could  hava  atartad  during  thi*  tima  period),  have  a  "Percent' 
010,1  SAY  '  Complete"  value  equal  to  or  higher  than  the  porportion  to  the  day*' 

011,1  SAY  '  expended  and  the  day*  remaining,  based  on  current  schedule  progre**.' 
012,1  SAY  'D)  Between  %  and  %  of  Aetivitia*  have  "Actual  Start  Date*"' 

013,1  SAY  '  which  will  reach  "Percent  Complete"  if  the  "Actual  Start  Date"  ia' 

014,1  SAY  '  over  1  week  earlier  than  the  "Data  Date".' 

015,1  SAY  'E)  Between  %  and  %  of  Activities  have  "Percent  Complete"' 

016,1  SAY  '  value*  greater  than  0.0%  or  a  "Remaining  Duration"  with  no  "Actual' 

017,1  SAY  '  Start  Date".' 

018,1  SAY  'F)  Between  %  and  %  of  Activities  have  a  "Remaining  Duration"' 

019,1  SAY  '  greater  than  their  "Original  Duration".' 

03,21  GET  al  PICTURE  '999999' 

03,32  GET  a2  PICTURE  '999999' 

05,11  GET  bl  PICTURE  '999.9' 

05,23  GET  b2  PICTURE  '999.9' 

08,11  GET  cl  PICTURE  '999.9' 

08,23  GET  c2  PICTURE  '999.9' 

012,11  GET  dl  PICTURE  '999.9' 

012,23  GET  d2  PICTURE  '999.9' 

015,11  GET  el  PICTURE  '999.9' 

015,23  GET  *2  PICTURE  '999.9' 

018,11  GET  fl  PICTURE  '999.9' 

018,23  GET  f2  PICTURE  '999.9' 

READ 

SKIP 

CLEAR 

SET  COLOR  TO  textracol 

00,25  SAY  'GRADING  ITEM  2:  SCHEDULE  PROGRESS' 

01,25  SAY  'Performance  Category:  Excellent' 

SET  COLOR  TO 

03,1  SAY  'A)  There  are  between  and  specific  Activities  that  have' 

84,3  SAY  '  negative  Float.' 

05,1  SAY  'B)  Between  %  and  %  of  Activities  on  the  four  most  critical' 

06,1  SAY  '  paths  (which  could  have  started  during  thi*  time  period),  started' 

07,1  SAY  '  on  their  "Early  Start  Date".' 

08,1  SAY  'C)  Between  %  and  %  of  Activities  on  the  four  most  critical' 

@9,1  SAY  '  paths  (which  could  have  started  during  this  time  period),  have  a  "Percent' 
@10,1  SAY  '  Complete"  value  equal  to  or  higher  than  the  porportion  to  the  days' 

@11,1  SAY  '  expended  and  the  days  remaining,  based  on  current  schedule  progress.' 
@12,1  SAY  'D)  Between  %  and  %  of  Activities  have  "Actual  Start  Dates"' 

@13,1  SAY  '  which  will  reach  "Percent  Complete"  if  the  "Actual  Start  Date"  is' 

@14,1  SAY  '  over  1  week  earlier  than  the  "Data  Date".' 

@15,1  SAY  'E)  Between  %  and  %  of  Activities  have  "Percent  Complete"' 

@16.1  SAY  '  vgiues  greater  than  C.0%  or  a  “Remaining  Duration"  with  no  "Actual' 

@17,1  SAY  '  Start  Date".' 

@18,1  SAY  'F)  Between  %  and  %  of  Activities  have  a  "Remaining  Duration"' 

@19,1  SAY  '  greater  than  their  "Original  Duration".' 

03,21  GET  al  PICTURE  '999999' 
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03,32  GET  a2  PICTURE  '999999' 

05,11  GET  bl  PICTURE  '999.9' 

05,23  GET  b2  PICTURE  '999.9' 

08,11  GET  cl  PICTURE  '999.9' 

08,23  GET  c2  PICTURE  '999.9' 

012,11  GET  dl  PICTURE  '999.9' 

012,23  GET  d2  PICTURE  '999.9' 

015,11  GET  el  PICTURE  '999.9' 

015,23  GET  e 2  PICTURE  '999.9' 

018,11  GET  fl  PICTURE  '999.9' 

018,23  GET  £2  PICTURE  '999.9' 

READ 

USE 

★ 

CLEAR 

08,10  SAY  'Select  REPORT  M  Options  Desired:' 

DO  WHILE  .T. 

010,10  SAY  ' Summary  Report  (S) ,  Detailed  Report  (D> ,  or  Both  (B)  >  '  GET  mch  PICTURE  '!' 
READ 
012,0 

IF  . NOT. mch$' SDB' 

SET  COLOR  TO  Serrcol 

012,20  SAY  'NOT  A  VALID  CHOICE  -  SELECT  S,  D  OR  B' 

SET  COLOR  TO 
ELSE 
EXIT 
ENDIF 
ENDDO 

RETURN  tt  Return  to  MAIN . PRG 
*:  EOF:  REPM_INT.PRG 
AZ 
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* • ********  ****** ******************* ******* **********  *  ****************** 


* 


* 

* 

* 

* 

* 

* 

* 


Program:  PAR_O.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Laat  modified:  04/21/89  5:06 


* 

* 


Called  by:  SETPARMS.PRG 


*:  Calls:  CHECK  (procedure  in  PROCS.PRG) 
*:  :  DISPERR  (procedure  in  PROCS.PRG) 
*  • 


*:  Documented  04/27/89  at  10:41  SNAP!  veraion  3.12a 

* • a******************************************************************** 


*  Program  to  Gat  Paramatera  for  Report  0 
DO  WHILE  .T. 

CLEAR 

0  1,1  SAY  '•  " 

TEXT 

REPORT  O:  SLIPPAGE  —  REPORT  O  will  look  at  up  to  five  achedula  filea  and 
compare  the  values  of  the  float,  the  original  duration,  early  atart  date, 
and  the  productivity  rate  (actual  duration  over  original  duration) .  Thia 
report  will  identify  thoae  activitiea  which  have  changed  and  check  to 
see  how  they  compare  with  the  mean.  Files  muat  be  entered  with  the  most 
recent  file  first,  followed  by  successively  older  filea. 

ENDTEXT 


SET  CONFIRM  ON 
STORE  1  TO  numfiles 
STORE  0  TO  fail 


DO  WHILE  .T. 

STORE  0  TO  fall 
IF  numfiles  >  5 
EXIT 
ENDIF 

0  8,5  SAY  'INPUT  THE  FILENAME  FOR  SCHEDULE  FILE  ' 
IF  numfiles  «  1 

filschedl  =  filachedl  +  "  " 

0  8,42  SAY  numfiles  PICTURE  '9' 

0  9,20  GET  filschedl 
READ 

0  10,20  SAY  "  " 

IF  filachedl  »  '  ' 

EXIT 

ENDIF 

filschedl  =  UPPER (filachedl) 

DO  check  WITH  filachedl, fail 
IF  option  =  0 
RETURN 
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ENDIF 

IF  fail  <>  1 

STORE  numfilea  +  1  TO  numfilea 
ENDIF 
ENDIF 

IF  numfiloa  “  2 

filached2  <*  filached2  +  " 

G  8,42  SAY  numfilea  PICTURE  '9' 

0  9,20  GET  filached2 
READ 

0  10,20  SAY  "  “ 

IF  filached2  =  '  ' 

EXIT 

ENDIF 

filschod2  «>  UPPER (filsched2) 

DO  chock  WITH  filachod2, fall 
IF  option  *•  0 
RETURN 
ENDIF 

IF  fail  <>  1 

IF  filachod2  c  filachodl 

DO  disporr  WITH  l,filached2 
IF  option  =  0 
RETURN 
ENDIF 

STORE  1  TO  fail 
ENDIF 
ENDIF 

IF  fail  <>  1 

STORE  numfilea  +  1  TO  numfilea 
ENDIF 
ENDIF 


IF  numfiloa  <=  3 

filochod3  =  filechod3  +  "  " 

0  8,42  SAY  numfilos  PICTURE  '9' 

0  9,20  GET  filschod3 
READ 

10,20  SAY  "  " 

IF  filschod3  =  '  ' 

EXIT 

ENDIF 

filsched3  =  UPPER (filsched3) 

DO  chock  WITH  filschod3, fail 
IF  option  =  0 
RETURN 
ENDIF 

IF  fail  <>  1 

IF  (filsched3  =  filsched2)  .OR.  (fllsched3=filachedl) 
DO  disporr  WITH  l,filsched3 
IF  option  =  0 
RETURN 
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ENDIF 

STORE  1  TO  fail 
ENDIF 
ENDIF 

IF  fail  <>  1 

STORE  numfiles+1  TO  numfilea 
ENDIF 
ENDIF 


IF  numfilea  *  4 

filsched4  *  filached4  +  "  " 

0  8,42  SAY  munfilea  PICTURE  '9' 

0  9,20  GET  filached4 
READ 

0  10,20  SAY  "  " 

IF  filached4  =  '  ' 

EXIT 

ENDIF 

filachad4  -  UPPER(filaohed4) 

DO  check  WITH  fileched4, fail 
IF  option  ■  0 
RETURN 
ENDIF 

IF  fail  <>  1 

IF  (filached4«filachad3)  .OR.  (filachad4»filachad2)  .OR.  (filached4>*filachedl) 
DO  disperr  WITH  l,filachad4 
IF  option  ■*  0 
RETURN 
ENDIF 

STORE  1  TO  fail 
ENDIF 
ENDIF 

IF  fail  <>  1 

STORE  nurafilea  -I-  1  TO  numfilea 
ENDIF 
ENDIF 


IF  numfilea  *»  5 

filached5  «=  filached5  +  " 

0  8,42  SAY  numfilea  PICTURE  '9' 

0  9,20  GET  filachedS 

READ 

0  10,20  SAY  "  " 

IF  filschedS  »  '  ' 

EXIT 

ENDIF 

filschedS  -  UPPER (filachedS) 

DO  check  WITH  filachedS, fail 
ir  option  =  0 
RETURN 
ENDIF 

IF  fail  <>  1 
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IF  (filschod5=filsched4)  .OR.  (filsched5=filached3)  .OR.  <filsched5=filsched2) 
(fllsched5=filschedl) 

DO  disperr  WITH  l,filsched5 
IF  option  =  0 
RETURN 
ENDIF 

STORE  1  TO  fail 
ENDIF 
ENDIF 

IF  fail  <>  1 

STORE  nurafilee  +  1  TO  numfiles 
ENDIF 
ENDIF 
ENDDO 

r.  imfiles  =  numfiles  -  1 
IF  numfilos  >=  2 
RETURN 
ELSE 
CLEAR 
0  10,10 
TEXT 

At  least  t**^  _  o®  •>  _o  r~<i  this  report. 

If  you  select  "R"  you  may  enter  files  again.  If  you  enter  a  "Q", 
the  report  will  be  skipped.  If  you  enter  a  "D",  you  will  see  a 
list  of  database  files,  then  be  given  the  opportunity  to  enter 
files  again. 

ENDTEXT 

o_confirm  =  'U' 

DO  WHILE  .T. 

0  19,20  SAY  ,,Your  choice  (R,  Q,  D)  :  "  GET  o_confirm 

READ 

o  confirm  =  UPPER (o_confirm) 

DO  CASE 

CASE  o_confirm  =  "R" 

EXIT 

CASE  o_confirm  =  "D" 

CLEAR 

DIR 

WAIT 

CASE  o_confirm  =  "Q" 
numfiles  =  0 
RETURN 
KNDCASE 
0  19,20  SAY  "" 
o_confirm  =  "R" 

ENDDO 

ENDIF 

SET  CONFIRM  OFF 
RETURN 
ENDDO 


.OR. 
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*:  EOF:  PAR_O.PRG 
A2 
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*****************  *  ******************************  *************  it  Irk***  irk 


* 

* 

* 


Program:  NTFST.PRG 


* 

* 

* 

* 

* 


System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  <c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/26/89  17:04 


*:  Called  by:  SETPARMS . PRG 

*  ; 

*:  Calls:  DISPERR  (procedure  in  PROCS.PRG) 

*  • 

*:  Documented  04/27/89  at  10:41  SNAP!  version  3.12e 

*• *************************************************** ****************** 


*  PROGRAM  :  NTFST.PRG 

*  PURPOSE  :  INPUT  THE  FILE  NAMES  FOR  THE  NTFSAP  SYSTEM 


STORE  0  TO  fail 


PUBLIC  cur, tar, curl, tarl, Line, page, rptl, rpt2, comments 

PUBLIC  wsact, wstitle, rfses, wsef , wslf , wsls, wsas, wsaf, wstf , wsod, ward, wspct 
PUBLIC  wasuc,wslag,wsrel 
* 


STORE 

0  TO  page 

i.  Line,  pet 

STORE 

SPACE  (8; 

TO 

cur 

STORE 

SPACE  (8) 

TO 

curl 

STORE 

SPACE (8) 

TO 

curndx 

STORE 

SPACE (8) 

TO 

curlndx 

STORE 

SPACE (8) 

TO 

tar 

STORE 

SPACE (8) 

TO 

tarl 

STORE 

SPACE (8) 

TO 

tarndx 

STOPE 

SPACE (8) 

TO 

tarlndx 

STORE 

SPACE (10) 

TO  wsact 

STOPE 

SPACE (10) 

TO  W86UC 

STORE 

SPACE (1) 

TO 

wsrol 

CLE 

.  -',20  SAY  "COMPARISON  REPORTS  —  DATABASE  SPECIFICATION" 

STOiJJ  C  T-»  fail 

0  5,5  SAY  "CURRENT  SCHEDULE  FILE  --  "  +  ntfschedl 
•  6,5  SAV  -CURRENT  LOGIC  FILE  —  "  +  ntflogicl 

'  '  Wi.ILB  T. 

ntfscheu?  =  ntfsched2  +  “  " 

5  8,5  SAY  'INPUT  THE  FILENAME  FOR  THE  PREVIOUS  SCHEDULE  FILE  ' 
@  10  20  GET  ntfsched2 

T>p*rj 

ntfsched2  =  TRIM(ntfsched2) 
a  11,1  SAY  "  " 

IF  ntfsched2  =  ntfschedl 
DO  disperr  WITH  l,ntfsched2 
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ELSE 

IF  .NOT.  FILE (ntf«chad2) 

DO  diaparr  WITH  3,ntfached2 
ELSE 
EXIT 
ENDIF 
ENDIF 

IF  option  «  0 
RETURN 
ENDIF 
ENDDO 


DO  WHILE  .T. 

ntflogic2  *»  ntflogic2  +  "  " 

0  13,  5  SAY  'INPUT  THE  FILENAME  FOR  THE  PREVIOUS  LOGIC  DATABASE  ' 

0  15,20  GET  ntflogic2 
READ 

ntflogic2  «  TRIM(ntflogic2) 

0  16,10  SAY  »  " 

IF  (ntflogic2«*ntflogicl)  .OR.  (ntflogic2*ntfaehad2)  .OR.  (ntflogic2*ntfschedl) 
DO  diaparr  WITH  l,ntflogic2 
ELSE 

IF  .NOT.  FILE (ntflogic2) 

DO  diaparr  WITH  3,ntflogic2 
ELSE 
EXIT 
ENDIF 
ENDIF 

IF  option  -  0 
RETURN 
ENDIF 
ENDDO 
RETURN 


*:  EOF:  NTFST.PRG 
'•Z 
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********************************************************************** 


★ 

* 

* 


Program:  HEADER1 . PRG 


*:  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 


★ 

* 

* 


Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/27/89  1:14 


* 


* 

* 

* 

* 

* 


Called  by:  REPA.PRG 
:  REPB.PRG 
:  REPC.PRG 
:  REPD.PRG 
:  REPE.PRG 
:  REPF.PRG 
:  REPM.PRG 


Documented  04/27/89  at  10:41 


SNAP1  version  3.12e 


★•********************************************************************* 


**  HEADER1 . PRG 
?  eop 

page=page+l 
??  ihoader_on 

?  SPACE (18) +' PROJECT  MANAGEMENT  TOOLS:  REPORT  ' treportch 
?  Shoador_mid 

?  SPACE (8)+' AREA  :  ' +areavSarea+SPACE (76) +  ' PAGE  #'+SUBSTR(STR(page) ,  6,9) 

?  sheader_off 

?  SPACE (7)+' SCHEDULE  EARLY 

LATE  LATE  TOTAL  ORIG  REM  PCT' 

?  SPACE (7)+' ACTIVITY  ID  TITLE  (from  Schedule  files)  START 

START  FINISH  FLOAT  DUR  DUR  COM' 

?  SPACE  (7)  +  ' -  - -  - 


EARLY 

FINISH 


curline=8  it  Current  line 
header2=.T. 

RETURN 

*:  EOF:  HEADER1 .PRG 
AZ 
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*  •  ***********************************************  irk  irk  It  it  it  It  Irk  irk  irk*  irk  it  irk  Irk 


*  i 

* :  Program :  HEADER3 . PRG 

*  J 

*:  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (c)  1989,  USA-CERL/ASC/RCE 

*:  Laat  modi f lad:  04/27/69  1:16 

*  ; 


*:  Called  by:  REP J. PRG 

*  J 

*:  Documented  04/27/89  at  10:41  SNAP!  version  3.12e 

*;********************************************************************* 


**  HEADER3 . PRG  -  Header  for  Report  J 
?  eop 

paga=page+l 
??  thaader_on 

?  SPACE (17)+' PROJECT  MANAGEMENT  TOOLS:  REPORT  '+raportch 
?  £header_mid 

?  SPACE (44)+' OUT-OF-SEQUENCE  ACTIT1VITIES  ON  FLOOR  '+F+' 
# '  +SUBSTR  ( STR  (page ) ,  6,9) 

?  Sheader_off 
?  '  SCHEDULE 

LATE  TOTAL  ORIG  REM  PCT  SORT' 

?  '  ACTIVITY  ID  TITLE  (from  Schedule  filea) 

START  FINISH  FLOAT  DUR  DUR  COM  CODE' 

?  -  -  - 


' +f loorvtf+SPACE (20) +' PAGE 


EARLY  EARLY  LATE 

START  FINISH 


curline=8  ££  Current  line 
header2=. T. 

RETURN 

*:  EOF:  HEADER3 . PRG 
AZ 
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itickkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


* 

k 

k 


Program:  HEADER4.PRG 


*:  System:  PROJECT  MANAGEMENT  TOOLS 

*:  Author:  ASC/RCE  and  USA-CERL 

*:  Copyright  (c)  1989,  USA-CERL/ASC/RCE 

*:  Last  modified:  04/27/89  1:17 

*  ; 

*:  Called  by:  REPJ.PRG 

k  • 

*:  Documented  04/27/89  at  10:41  SNAP!  version  3.12e 

k'kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

**  HEADER4.PRG  -  Header  for  Report  J 
?  eop 

page=page+l 
??  Sheader_on 

?  SPACE (17) +' PROJECT  MANAGEMENT  TOOLS:  REPORT  '+reportch 
?  theader_mid 

?  SPACE (20)+’ THE  FOLLOWING  DRYWALL  ACTIVITIES  WERE  BEGUN  BEFORE  THE  EARLIEST  ROOFING  ACTIVITY  WAS 
STARTED'  +SPACE  (10)  +'  PAGE  If '  +STR  (page,  6) 

?  Sheader_off 

?  '  SCHEDULE  EARLY  EARLY  LATE 

LATE  TOTAL  ORIG  REM  PCT  SORT' 

?  '  ACTIVITY  ID  TITLE  (from  Schodule  files)  START  FINISH 

START  FINISH  FLOAT  DUR  DUR  COM  CODE' 

?  '  _  _ _ _  _  _ 


? 

curline=8  &&  Current  line 
hoader2=. T. 

RETURN 

*:  EOF:  HEADER4.PRG 

A7, 
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********************************************************************* 


* 

* 

* 

* 

* 

* 

* 

* 


Program:  FIND1.PRG 

Systam:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/27/89  2:47 


* 

* 

* 

* 

* 


Called  by:  REPK.PRG 

Calls:  FIND2.PRG 
I  FIND3.PRG 


* 

* 

* 


Indexes :  SUCC_ACT.NDX 
:  SUCC  SUC.NDX 


*:  Documented  04/27/89  at  10:41  SNAP!  version  3.12e 

***************************  ******************************************** 


PARAMETERS  PATH, npath 
PRIVATE  ms«c,m£lg 


STORE  0  TO  msec 
SELECT  B 

SET  INDEX  TO  »ucc_act 
STORE  1  TO  loc 
STORE  ""  TO  curr 
STORE  0  TO  cur_roc 
DO  WHILE  loc  <-  LEN (PATH) 

DO  WHILE  SUBSTR (PATH, loc, 1)  <>  " . " 

STORE  curr  +  SUBSTR (PATH, loc, 1)  TO  curr 
STORE  loc  +  1  TO  loc 
IF  lco  >  LEN  (PATH) 

EXIT 

ENDIF 

ENDDO 

STORE  loc  +  1  TO  loc 
STORE  VAL(curr)  TO  cur_rec 
IF  cur_rac  <>  0 
SELECT  D 
GOTO  cur_rac 
SELECT  B 
SEEK  d->act 
SELECT  D 

STORE  0  TO  cur_rec 
STORE  ""  TO  curr 
DO  find2 

IF  curline  >  maxlinask  -  3 
IF  "P"  $  output 
EJECT 
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ENDIF 

STORE  .T.  TO  newpage 
STORE  0  TO  ourline 
ENDIF 
ENDIF 
ENDDO 
? 

? 

? 

DO  find3  WITH  3 

IF  curline  >  maxlinesk  -  7 
DO  find3  WITH  7 
ENDIF 

?  "  Activities  on  this  Critical  Path  with  less  than  "+LTRIM(STR (mpl) ) +"  men  per  day" 

9 

?  "  ACTIVITY  ID  MEN/DAY" 

9  M  _ _  __ 


DO  find3  WITH  5 

STORE  1  TO  msec 

STORE  .T.  TO  mflg 

STORE  1  TO  loc 

STORE  ""  TO  curr 

STORE  0  TO  cur_rec 

DO  WHILE  loc  <=  LEN (PATH) 

DO  WHILE  SUBSTR  (PATH,  loc,  1)  <>  " . " 

STORE  curr  +  SUBSTR (PATH, loc, 1)  TO  curr 
STORE  loc  +  1  TO  loc 
IF  loc  >  LEN  (PA  , 

EXIT 

ENDIF 

ZVoi.’) 

STORE  loc  +  1  TO  loc 
STORE  VAL(curr)  TO  cur_rec 
IF  cur_rec  <>  0 
SELECT  D 
GOTO  cur_rec 
STORE  0  TO  cur_rec 
STORE  ""  TO  curr 
IF  mh_aay  <  mpl  .AND.  mh_day  >  0 
7  "  "+act+STR (mh_day, 12) 

DO  find3  WITH  1 
STORE  .F.  TO  mflg 
ENDIF 
ENDIF 
ENDDO 

STORE  0  TO  maar 
IF  mflg 

?  "  NONE" 

DO  find3  WITH  1 
ENDIF 
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? 

? 

? 

DO  find3  WITH  3 

IF  curlina  >  m&xlinaak  -  8 
DO  find3  WITH  8 
ENDIF 

?  "  Activities  on  thia  Critical  Path  with  mora  than  "+LTRIM(STR(durat) )+"  days  remaining  duration" 

j 

?  "  ACTIVITY  ID  REMAINING" 

?  "  DURATION  " 

■>  " _ . 

O 

DO  find3  WITH  6 

STORE  .T.  TO  mflg 

STORE  2  TO  maac 

STORE  1  TO  loc 

STORE  ""  TO  curr 

STORE  0  TO  cur_rec 

DO  WHILE  loc  <«  LEN  (PATH) 

DO  WHILE  SUBSTR (PATH, loc, 1)  <> 

STORE  curr  +  SUBSTR (PATH, loc, 1)  TO  curr 
STORE  loc  +  1  TO  loc 
IF  loc  >  LEN  (PATH) 

EXIT 

ENDIF 

ENDDO 

STORE  loc  +  1  TO  loc 
STORE  VAL(curr)  TO  cur_rec 
IF  cur_rec  <>  0 
SELECT  D 
GOTO  cur_rao 
STORE  0  TO  cur_rac 
STORE  ""  TO  curr 
IF  rd  >  durat 

?  "  "+act+STR(rd, 13) 

DO  find3  WITH  1 
STORE  .F.  TO  mflg 
ENDIF 
ENDIF 
ENDDO 

^TORE  0  TO  maac 
IF  mflg 

?  "  NONE" 

DO  find3  WITH  1 
ENDIF 
•> 

•> 

o 

DO  find3  WITH  3 


186 


IF  curlino  >  maxlinesk  -  8 
DO  find3  WITH  8 
ENDIF 

?  "  Activities  on  thin  Critical  Path  with  relation  durations  greater  than  "+LTRIM (STR (reldur) )  +" 
percent" 

■> 

?  "  ACTIVITY  ID  LAG  REMAINING  RELATION" 

■>  DURATION  DURATION" 


? 

DO  find3  WITH  6 
SELECT  B 

SET  INDEX  TO  succ_suc 

STORE  .  T.  TO  mflg 

STORE  3  TO  msec 

STORE  1  TO  loc 

STORE  ""  TO  curr 

STORE  0  TO  cur_rec 

DO  WHILE  loc  <=  LEN (PATH) 

DO  WHILE  SUBSTR (PATH, loc, 1)  <> 

STORE  curr  +  SUBSTR (PATH, loc, 1)  TO  curr 
STORE  loc  +  1  TO  loc 
IF  loc  >  LEN (PATH) 

EXIT 

ENDIF 

ENDDO 

STORE  loc  +  1  TO  loc 
STORE  VAL(curr)  TO  cur_rec 
IF  cur_rec  <>  0 
SELECT  D 
GOTO  cur_roc 
SELECT  B 
SEEK  d->act 
STORE  0  TO  cur_roc 
STORE  ""  TO  curr 
IF  d->rd  >  0 

IF  100*-  (lag/d->rd)  >  reldur 

?  "  "+d->act+STR (lag, 7)+STR(d->rd, 11) +STR(100* (lag/d->rd) , 11) 
DO  find3  WITH  1 
STORE  .F.  TO  mflg 
ENDIF 
ENDIF 
ENDIF 
ENDDO 

STORE  0  TO  msec 
IF  mflg 

?  "  NONE" 

DO  find3  WITH  1 
ENDIF 
? 

STORE  .T.  TO  newpage 
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RETURN 

*■:  EOF:  FIHDi.PRff 


STORE  0  TO  sdov 
STORE  .T.  TO  newpage 
STORE  0  TO  page 
STORE  0  TO  matches 
STORE  0  TO  curline 
STORE  0  TO  areamat 

INDEX  ON  SUBSTR(act,S,2)  +  act  TO  mrgndx 
GO  TOP 

newpage  =  . T . 


DO  WHILE  .NOT.  EOF<) 

STORE  SUBSTR(act,5,2)  TO  stnd 
STORE  RKCNO()  TO  start 
STORE  0  TO  N, mean, prod, prodsq 

DO  WHILE  <SUBSTR(act,5,2)  =  atnd)  .AND.  .NOT.  EOF() 

STORE  prod  +  ( (af-as) /od)  TO  prod 
STORE  prodsq  +  (( (af-as) /od) **2)  TO  prodsq 
STORE  N  +  1  TO  N 
SKIP  +  numfilos 
EHDDO 
GO  start 

STORE  prod  /  H  TO  mean 
IF  (N  >  1) 

sdov  =  SQRT ( (prodsq  -  ( (prod**2) /N) ) ) /  (N-l) 

ELSE 

pdev=0  0 
ENDIF 
IF  newpage 
?  oop 

curline  -  0 
page  =  page  +  1 
?  theader_on 

?  SPACE (17)  +  •  SCHEDULING  ANALYSIS  SYSTEM:  REPORT  O' 

IF  SUBSTR (act,  S,  2) $'  01,  02,  03,  04,  05,  06,  07,  08, 09, 10, 11, 12, 13, 14, 15, 16, DR, PK, PR, SC' 

?  '  ICS  STANDARD  CODE  =  '+stnd+'  :  ' +stndvistnd+SPACE (36) +'PAGE  #' +STR (page, 6) 
ELSE 

?  '  ICS  STANDARD  CODE  =  '+stnd+'  :  ' +stnd+SPACE (36) +' PAGE  #' +STR (page, 6) 
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ENDIF 

?  Cheader_off 

?  [  ACTIVITY  TITLE  EARLY  EARLY  ] 


??[ 

LATE 

LATE 

ACTUAL 

ACTUAL 

TOTAL 

REK 

PCT 

ORIG 

PROD 

NUMBER  ] 

?  t 

ID 

START 

FINISH  ) 

??[ 

START 

FINISH 

START 

FINISH 

FLOAT 

DOR 

COM 

DUR 

RATE 

STND  DEVS) 

newpage  *  . F . 

ENDIF 

DO  WHILE  (SUBSTR (act,  5,2)  *  atnd)  .AND.  .NOT.  EOF() 

STORE  od  TO  orig 
STORE  aa  TO  aarly 
STORE  tf  TO  float 
IF  od  <>  0 

STORE  (af-aa)/od  TO  prod 
ENDIF 

STORE  .F.  TO  diff 
STORE  RECNO()  TO  cur_rac 
STORE  1  TO  tamp 
DO  WHILE  tamp  <  numfilaa 
SKIP  +  1 
IF  orig  <>  od 

STORE  .T.  TO  diff 
ENDIF 

IF  aarly  <>  as 

STORE  .T.  TO  diff 
ENDIF 

IF  float  <>  tf 

STORE  .T.  TO  diff 
ENDIF 

IF  od  <>  0  .AND.  prod  <>  ((af-aa)/od) 

STORE  .T.  TO  diff 
ENDIF 
IF  diff 

STORE  numfilaa  +  1  TO  tamp 
ELSE 

STORE  temp  +  1  TO  temp 
ENDIF 
ENDDO 
IF  diff 
GO  cur_rec 

STORE  areamat  +  1  TO  areamat 
IF  od  =  0 

STORE  1  TO  prod 
ENDIF 

?  '  '  +act+'  '  +TIT.LE+'  '+DTOC(es)  +  '  '+DTOC(ef)+'  '+DTOC(l«) 

'  '  +DTOC  (If)  +'  '  +DTOC  (as)  +'  '  +DTOC (af )  +STR (tf ,  7) 

??  '  '+STR(rd,  6)+STR(pct,  5)+STR(od,  7)+STR(prod,  8,2) 

IF  (prod  >  mean+adev) 

??  STR(  ( (prod-mean) /adev) ,  9, 2) 


190 


ENDIF 
SELECT  G 
APPEND  BLANK 

REP I.  act  WITH  h->aot,  TITLE  WITH  h->title  as  KITH  h-’>es 

REPL  esa  WITH  h->eea,e£  WITH  h->e£,ofa  WITH  h~>ota 

REPL  Is  WITH  h->ls, Isa  WITK  h->lsa,l£  WITH  h->lf,lfa  WITH  h->lfa 

REPL  as  WITH  h->as,af  WITH  h->af,tf  WITH  h->tf,  ffl  WITH  h->ffl 

REPL  od  WITH  h->od, rd  WITK  h->rd,pct  WITH  h->pct,resp  WITH  h->rosp 

REPL  lvls  WITH  h->l vis, SORT  WITH  h->sort,rep  WITH  h->rcp 

REPL  rut  WITH  h->rut,upd  KITH  h->upd,ovc  WITH  h->svc 

REPL  dol_day  WITH  h->dol_day, mh_day  WITH  h->mh_day 

REPL  changed  WITH  prod 

SELECT  H 

STORE  matches  +  1  TO  matches 
STORE  curline  +  1  TO  curline 
SKIP  +  (numfllea  -  1) 

ELSE 

SELECT  G 
APPEND  BLANK 

REPL  act  WITH  h->act, TITLE  KITH  h-5title.es  WITH  h->os 
REPL  esa  WITH  h->esa,e£  WITH  h->ef,efa  WITH  h->efa 
REPL  is  WITH  h->ls, Isa  WITH  h->lsa, If  WITH  h->lf,lfa  WITH  h->lfa 
REPL  an  WITH  b~>as,a£  WITH  h->af,tf  WITH  h->tf ,  ffl  WITH  h->ffl 
REPL  od  WITH  h->od,  rd  WITH  h->rd,pct  WITH  h->pct,r«ssp  WITH  h->reBp 
REPL  lvls  WITH  h->lvls, SORT  WITH  h->sort,rcp  WITH  h->rcp 
REPL  rut  WITH  h->rut, upd  WITH  h->upd,evc  WITH  h->evc 
REPL  dol_day  WITH  h~>dol_day , mh  _day  WITH  h->mh_day 
REPL  changed  WITH  1 
SEItECT  H 
ENDIF 

IE  curline  >  maxlineoo  -  3 
newpago=.T. 

EXIT 

ENDIF 

IF  .NOT.  EOF  0 
SKIP 
ENDIF 
ENDDO 

i.F  SUBSTU  (act,  5,2)  <>  stnd 
? 

IF  stad$'  01, 02, 03, 04,  OS,  06,  07,  08, 09, 10, 11, 12, 13, 14, 15, 16,  DR,  PM,  PR,  SC' 

?  SPACE (25) +'++++  For  '+stnd+'  :  ' +TRIM (stndvSstnd) +'  STATISTICS  ARE  :  KEAN 

ELSE 

?  SPA'-E  (23) +'++++  For  '  +stnd+'  :  '  +  '  STATISTICS  ARE  :  KEAN  =  ' 

ENtUF 

??  LTRIK(STR(mean, 9,2))+';  STANDARD  DEVIATION  =  ' +LTRIM(STR(sdev, 9, 2) ) +'  ++++' 

?  SPACE (25) x' There  wora  '+LTRIM(RTRIM(STR(areamat) ) )+'  activities  which  had  slipped.' 
newpage= . T . 

ENDIF 

STORE  0  TO  aroamat 
ENDDO 
SELECT  G 
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CO  TOP 

DO  WHILE  .NOT.  EOF<) 

STORE  .S’.  TO  Cnd 
IF  changed  <>  1 
STORE  .T.  TO  fnd 
EXIT 
ENDIF 
SKIP  +1 
ENDDO 

IF  .NOT.  fnd 
ZAP 
ELSE 
7 

?  'The  new  achedule  file  la  NEWSCHER . DBF .  The  changed  field  indicatea  the  productivity  rate.' 

7 

ENDIF 
?  eop 

7 

?  sfooter_on 

?  SPACE (50)+'***  END  OF  REPORT  0  ***' 

?  SPACE (20)+'***  THERE  HERE  ' +LTRIM (STR (mat che a ) ) + '  ACTIVITY  ID  NUMBERS  WHICH  MATCHED  THESE  SEARCH 
CRITERIA.  ***' 

?  tfooter_off 
?  eop 
RETURN 

*:  EOF!  STNDJFND.PRG 
AZ 
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* 

* 

* 

* 

* 

* 

★ 

* 

* 

* 

* 

★ 

★ 

* 

* 

* 

* 


System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/27/89  4:58 

Called  by:  REPR.PRG 
:  REPS . PRG 
:  REPT.PRG 
:  REP U .PRG 
:  REP V. PRG 
:  REPW.PRG 
:  REPX.PRG 
;  PRINTACT . PRG 
;  PRINTPRE.PRG 

Calls:  TOTOP  (procedure  in  PROCS.PRG) 


*:  Documented  04/27/89  at  10:41 


SNAP!  version  3.12e 


★•a******************************************************************** 


* 


*  THIS  PROGRAM  IS  TO  PRINT  REPORT  TILE,  PAGE  NUMBER,  DATE, 

*  ACTIVITY  CONTENTS  FOR  "SCHDULE.PRG" 

* 


SET  TALK  OFF 
DO  totop 
Lino  =  2 
?  Sintro_on 
?  Shoader_on 
?  4hoador_mld 

?  SPACE (40)+' NATIONAL  TEST  FACILITY  SCHEDULE  ANALYSIS  PROGRAM  {1.0b) ' 
Lino  =  Line  +  2 
?  Shoador  off 


jO  CASS 

CASE  rptl  =•  '1' 

?  "THE  FOLLOWING  ACTIVITIES  HAVE  BEEN  DELETED  FROM  THE  MOST  RECENT  SCHEDULE" 

CASE  rptl  =  '2' 

?  "THE  FOLLOWING  ACTIVITIES  HAVE  BEEN  ADDED  TO  THE  MOST  RECENT  SCHEDULE" 

CASE  rptl  =  '3' 

?  "THE  FOLLOWING  ACTIVITIES  HAVE  INCONSISTENCY  BETWEEN  PCI  AND  ACTUAL  START/FINISH  DATES" 

CASE  rptl  =  '4' 

?  "THE  FOLLOWING  ACTIVITIES  HAVE  CHANGES  IN  DESCRIPTION  BETWEEN  SCHEDULES" 

CASE  rptl  =  'S' 

?  SPACE (44)+  THE  FOLLOWING  ACTIVITIES  HA'TS  SIGNIFICANT  CHANGES  IN  ORIGINAL  DURATION  BETWEEN 
SCHEDULES" 

Line  =  Line  +  1 

?  "(CURRENT  OD  INCREASED,  TOTAL  FLOAT  LESS  THAN  5,  AND  INCREASING  RATIO  '•  10  %  )" 

CASE  rptl  =  '6' 
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7  "THE  FOLLOWING  ACTIVITIES  HAVE  CHANGES  IN  THE  CURRENT  SCHEDULE" 

CASE  rptl  =  '7' 

7  "THE  FOLLOWING  ACTIVITIES  HAVE  CHANGES  IN  RELATION  TO  THEIR  SUCCESSORS  IN  THE  CURRENT  SCHEDULE" 
ENDCASE 

Lina  <■  Lina  +  2 
•> 

?  'REPORT  WAS  RUN  ON  ' 

??  DATE() 

IF  rptl  <>  '3' 

??  SPACE (43)+  "THE  CURRENT  FILE  IS:  " 

??  UPPER (ntfachadl) 

ELSE 

??  SPACE (43)+  "IN  THE  CURRENT  FILE:  " 

??  UPPER (ntfachadl) 

ENDIF 

??  SPACE (20)+  'PAGE  #  ' 
page  »  paga  +1 
7?  STR(paga, 3) 

Lina  *  Lina  +  1 
IF  rptl  <>  '3' 

?  SPACE (70) +"THE  PREVIOUS  FILE  IS:  " 

??  UPPER (ntfached2) 

ENDIF 

Lina  *  Lina  +2 

j 

IF  rptl  <>  '7' 

7  'T  ' 

7?  SPACE (57)+  'EARLY  EARLY  LATE  LATE  ACTUAL  ACTUAL  TOTAL  ORIG  REM  PCT 
COMMENTS' 

Lina  >«  Lina  +  1 
7  'L  NUMBER  DESCRIPTION' 

7?  SPACE (38)+  ' STAR!  FINISH  START  FINISH  START  FINISH  FLOAT  DUR  DUR  COM' 

ELSE 

7  'T  ACT  ACTIVITY' +SPACE (49) 

7?  'ACTUAL  ACTUAL  TOTAL  ORIG  REM  PCT  ACTIVITY  ACTIVITY' +SPACE (39) 

7?  'REL  LAG  COMMENT' 

Line  «  Lina  +  1 

7  'L  NUMBER  DESCRIPTION' +SPACE (46) 

7?  'START  FINISH  FLOAT  DUR  DUR  COM  NUMBER  DESCRIPTION' 

ENDIF 

★ 

Lina  =  Lina  +  2 
*:  EOF:  TITLE l.PRG 
AZ 
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??  tf 
??  '  ' 
??  od 
??  '  ' 
??  rd 
??  '  ' 
??  pet 
* 
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IF  rpt2  -  '1' 

??  '  ' 

??  comments 
ENDIF 

*:  EOF:  PRINTACT.PRG 
AZ 
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*****A*************************************************************** 


Program:  PRINTPRE.PRG 


System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  <c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/27/89  2:36 


Called  by:  REPX.PRG 


Calls:  TITLE1.PRG 


Documented  04/27/89  at  10:42 


SNAP!  version  3.12e 


********************************************************************* 


*  SUBROUTINE  TO  PRINT  ONE  PREDECESSOR  ACTIVITY 

* 


Line  =■  Line  +  1 
IF  Line  >  56 
DO  titlel 
Line  =  Lina  +  1 
ENDIF 

?  act+"  "+TITLE+SPACE  (9)  +DTOC  (as)  -t SPACE  (2)  +DTOC  (af  )+STR(tf ,  8)  +STR  (od,  6) 
??  STR(rd,  6)+STR(pct,  6,2) 


* 

*:  EOF:  PRINTPRE.PRG 


* • ********************************************************************* 


★ 

★ 

★ 


Program:  FIND2.PRG 


* 

★ 

* 

* 

* 


System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCB 
Last  modified:  04/27/8 9  2:48 


*:  Called  by:  FIND1.PRG 

*:  Documented  04/27/89  at  10:42  SNAP!  version  3.12e 

★ • ********************************************************************* 


IF  newpage 
curline  =  6 
pagj  =  page  +  1 
?  eop 

?  fiheader_on 

?  SPACE  (17)  +" SCHEDULING  ANALYSIS  SYSTEM:  REPORT  K'* 

•> 

?  "  CRITICAL  PATH  #"+STR (npath, 3) +SPACE (36)  +  "PAGE  #"+STR(page, 3) 


?  4header_off 

?  "  ACTIVITY 

??"  LATE 

?  "  ID 

??"  START 

TITLE 

LATE 

FINISH 

ACTUAL  ACTUAL  TOTAL 

START  FINISH  FLOAT 

REM  PCT 

DUR  COM 

EARLY 

ORIC  LAG 

START 

DUR  " 

EARLY 

REL  " 

FINISH  " 

o 

newpage  =  .F. 

ENDIF 

?  "  "+act+" 

M+TITLE+" 

"+DTOC  (es)  +"  "+DTOC(ef)+" 

"+DTOC (Is) 

??  "  "+DTOC (If) +"  "+DTOC(aa)+"  "+DT0C (af) +STR{tf , 7) 

??  STR(rd,7)+STR(pct,6)+STR<od,6)+STR<b->lag,6)+"  "+b->rel 
curline  <»  curline  +  1 
IF  curline  >*■  maxlinesk 
STORE  .T.  TO  newpage 
ENDIF 

RETURN 

*:  EOF:  FIND2.PRG 
AZ 
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* • ********************************************************************* 


* 

* 

* 

* 

* 

* 

* 

★ 

* 

* 


Program:  FIND3.PRG 

System:  PROJECT  MANAGEMENT  TOOLS 
Author:  ASC/RCE  and  USA-CERL 
Copyright  (c)  1989,  USA-CERL/ASC/RCE 
Last  modified:  04/27/89  3:43 


Called  by:  FXND1.PRG 


*:  Documented  04/27/89  at  10:42 


SNAP!  version  3.12e 


*********************************************************************** 


PARAMETERS  mline 

STORE  curline  +  mline  TO  curline 
T.F  curline  >  maxlinesk 
page  =  page  +  1 
?  eop 

?  Sheader_on 

?  SPACE (17)+ "SCHEDULING  ANALYSIS  SYSTEM:  REPORT  K" 

? 

?  "  Critical  Path  #"+STR(npath,3)+SPACE(36)+"PAGE  #"+STR(page, 3) 
?  fiheader_off 
•> 

STORE  3  TO  curline 

DO  CASE 

CASE  msec  »  1 

?  "  ACTIVITY  ID  MEN/DAY" 

9  «  __ - - -  - - - 1* 

9 

STORE  3  TO  curline 
CASE  msec  =  2 

?  "  ACTIVITY  ID  REMAINING" 

?  "  DURATION  " 

?  " -  - " 

? 

STORE  4  TO  curline 
CASE  msec  «*  3 

?  "  ACTIVITY  ID  LAG  REMAINING  RELATION" 

?  "  DURATION  DURATION" 

? 

STORE  4  TO  curline 
RHDCASE 
nawpage  =  .F. 

ENDIF 


RETURN 

*:  EOF:  FIND3.PRG 
AZ 


199 


USA*  aRL  distribution 


Chief  of  Engineers 
ATTN:  CEHEC-IM-LP  (2) 

ATTN:  CEHEC-1M-LH  (2) 

ATTN:  CECC-P 
ATTN:  CECW 
ATTN:  CERD-L 
ATTN:  CEMP-C 
ATTN:  CEMP-CP 
ATTN:  CEMP-CM 
ATTN:  CEMP-CE 

US  Army  Engineer  Districts 
ATTN:  C/Const.  Div.  (41) 

US  Army  Engr  Divisions 
ATTN:  C/Const.  Div  (13) 

General  Services  Administration 
St.  Louis,  MO  63120 
Kansas  City,  MO  64131 

DLA  ATTN:  DLA-WI  22304 

DNA  ATTN:  NADS  20305 

Fort  Belvoir,  VA  22060 
ATTN:  CECC-R 

NAVFAC 

ATTN:  Division  Offices  (11) 
ATTN:  Facilities  Engr  Cmd  (9) 
ATTN:  Naval  Constr  Battalion  Ctr 

Omaha  District 
ATTN:  CEMRO-CD  68102 

Defense  Technical  Info.  Center  22304 
ATTN:  DTIC-FAB  (2) 
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